Amiga Collections: Taifun

home *** CD-ROM | disk | FTP | other *** search

/ Amiga Collections: Taifun / Taifun 177 (1991-09-10)(Manewaldt, A.)(DE)(PD).zip / Taifun 177 (1991-09-10)(Manewaldt, A.)(DE)(PD).adf / AUTOEXEC.AMOS / AUTOEXEC.amosSourceCode next >

Wrap

AMOS Source Code | 1991-10-02 | 147KB | 4,864 lines

Set Buffer 12 Close Workbench Default Rem ******************************************* Rem * Laenderraten * Rem *-----------------------------------------* Rem * Programmiert von Ralf Schrempp * Rem * Altfelixstr.7 * Rem * D-7630 Lahr/Schw. * Rem * * Rem * und Bernhard Schindler * Rem * Kirchstr.48 * Rem * D-7639 Kappel-Grafenhausen * Rem * * Rem ******************************************* On Error Proc BEENDEN Colour 0,$0 : Colour 1,$0 Curs Off : Led Off : Hide Dim STADT$(14),LAND$(14) Dim STADT1$(35),LAND1$(35) Dim STADT2$(30),LAND2$(30) Dim STADT3$(41),LAND3$(41) Dim STADT4$(8),LAND4$(8) Dim STADT5$(13),LAND5$(13) Global V,MUS,STADT$(),LAND$(),STADT1$(),LAND1$(),STADT2$(),LAND2$(),STADT3$(),LAND3$(),STADT4$(),LAND4$(),STADT5$(),LAND5$() V=63 : MUS=False INSTALLIEREN ANFANG AUSWAHL Procedure ANFANG MUS=True Unpack 15 To 0 Music 1 : Tempo 17 : Mvolume V : Double Buffer Channel 1 To Bob 1 Channel 2 To Bob 2 Channel 3 To Bob 3 Bob 1,80,200,1 : Wait Vbl Amal 1,"M 0,-190,400" : Amal On 1 : Wait 500 Amal 1,"M 0,-300,400" : Amal On 1 : Wait 200 Bob 2,90,250,2 : Wait Vbl Amal 2,"M 0,-170,400" : Amal On 2 : Wait 500 Amal 2,"M 0,250,400" : Amal On 2 : Wait 200 Bob 3,20,250,3 : Wait Vbl Amal 3,"M 0,-180,450" : Amal On 3 : Wait 500 Amal 3,"M 0,-300,500" : Amal On 3 : Wait 400 Fade 5 : Wait 75 Amal Off Screen Close 0 End Proc Procedure AUSWAHL Screen Open 2,640,256,16,Hires : Colour 0,$0 : Colour 1,$0 : Curs Off Screen Open 1,640,256,16,Hires : Colour 0,$0 : Colour 1,$0 : Curs Off Screen 1 Paper 6 Cls Paper 6 : Pen 0 Print At(10,2);"Bitte wï¿½hlen Sie den Kontinent ihrer Wahl." Ink 0 Bar 70,45 To 450,205 Ink 2 Bar 60,40 To 440,200 Paper 2 : Pen 0 Do Print At(16,6);"<1> Asien." Print At(16,8);"<2> Europa." Print At(16,10);"<3> Afrika." Print At(16,12);"<4> Australien." Print At(16,14);"<5> Sï¿½damerika." Print At(16,16);"<6> Nord.- u. Mittelamerika." Print At(16,18);"<7> E N D E." Locate 16,22 Input "Ihre Wahl bitte :";A If A=1 Then ALPHA If A=2 Then EUROPA If A=3 Then AFRIKA If A=4 Then AUSTRALIEN If A=5 Then Sï¿½DAMERIKA If A=6 Then NORDAMERIKA If A=7 Then BEENDEN If A>7 Then BEENDEN Loop End Proc Procedure MUSIK_AUS If MUS=True For V=63 To 0 Step -1 Mvolume V Wait 6 Next V Music Off MUS=False End If End Proc Procedure BEENDEN Curs Off If MUS=True MUSIK_AUS End If Music Stop Music Off Amal Off Led On Show Screen Close 2 Screen Close 1 Edit End Proc Procedure INSTALLIEREN Restore SIENA For Z=1 To 35 Read STADT1$(Z),LAND1$(Z) Next Z Restore EUROPA For Z=1 To 30 Read STADT2$(Z),LAND2$(Z) Next Z Restore AFRIKA For Z=1 To 41 Read STADT3$(Z),LAND3$(Z) Next Z Restore AUSTRALIEN For Z=1 To 8 Read STADT4$(Z),LAND4$(Z) Next Z Restore SUEDAMERIKA For Z=1 To 13 Read STADT5$(Z),LAND5$(Z) Next Z Restore NORDAMERIKA For Z=1 To 14 Read STADT$(Z),LAND$(Z) Next Z End Proc Procedure TISCH Unpack 12 To 1 Show : Curs Off Menu$(1)="Programm " Menu$(1,1)="Info " Menu$(1,2)="Musik aus " Menu$(1,3)="Ende " Menu$(2)=" Land 1.Teil " Menu$(2,1)="Japan " Menu$(2,2)="Sï¿½dkorea " Menu$(2,3)="Nordkorea " Menu$(2,4)="China " Menu$(2,5)="Mongolei " Menu$(2,6)="Saudi-Arabien" Menu$(2,7)="Israel " Menu$(2,8)="Jordanien " Menu$(2,9)="Libanon " Menu$(2,10)="Syrien " Menu$(3)=" Land 2.Teil " Menu$(3,1)="Irak " Menu$(3,2)="Kuwait " Menu$(3,3)="Jemen " Menu$(3,4)="Volksrep. Jemen" Menu$(3,5)="Oman " Menu$(3,6)="Arab. Emirate " Menu$(3,7)="Iran " Menu$(3,8)="Afghanistan " Menu$(3,9)="Sowjetunion " Menu$(3,10)="Pakistan " Menu$(3,11)="Taiwan " Menu$(4)=" Land 3.Teil " Menu$(4,1)="Indien " Menu$(4,2)="Nepal " Menu$(4,3)="Bhutan " Menu$(4,4)="Bangladesch " Menu$(4,5)="Sri Lanka " Menu$(4,6)="Birma " Menu$(4,7)="Kambodscha " Menu$(4,8)="Thailand " Menu$(4,9)="Laos " Menu$(4,10)="Vietnam " Menu$(4,11)="Phillipinen " Repeat On Menu Proc PROGRAMM,LAND1,LAND2,LAND3 On Menu On Menu On Until False End Proc Procedure PROGRAMM C=Choice(2) On C Proc INFO,MUSIK_AUS,ABBRUCH1 End Proc Procedure LAND1 C=Choice(2) On C Proc JAPAN,SUEDKOREA,NORDKOREA,CHINA,MONGOLEI,SAUDI,ISRAEL,JORDANIEN,LIBANON,SYRIEN,TAIWAN End Proc Procedure LAND2 C=Choice(2) On C Proc IRAK,KUWAIT,JEMEN,VOLKJEMEN,OMAN,EMIRATE,IRAN,AFGHANISTAN,SOWJETUNION,PAKISTAN,TAIWAN End Proc Procedure LAND3 C=Choice(2) On C Proc INDIEN,NEPAL,BHUTAN,BANGLA,LANKA,BIRMA,KAMBODSCHA,THAILAND,LAOS,VIETNAM,PHILLIPPINEN End Proc Procedure ALPHA Paper 7 Do Cls Ink 0 Bar 30,85 To 620,175 Ink 5 Bar 20,80 To 610,170 Paper 5 : Pen 0 Print At(4,12);"Was wollen sie erraten? " Print At(4,14);"Um das jeweilige Land zu erraten drï¿½cken Sie den Buchstaben < L >," Print At(4,16);"oder um die Stadt zu erraten den Buchstaben < S >." Locate 4,18 Input "Ihre Wahl bitte :";WAHL$ If WAHL$="s" Then ALPHASTADT If WAHL$="S" Then ALPHASTADT If WAHL$="l" Then ALPHALAND If WAHL$="L" Then ALPHALAND Paper 7 Loop End Proc Procedure ALPHALAND Paper 7 : Cls Do Ink 0 Bar 48,18 To 580,30 Ink 2 Bar 38,13 To 570,25 Paper 2 : Pen 4 Print At(7,2);"Bitte geben Sie das richtige gesuchten Land ein.." NA=Rnd(34)+1 Do NB=Rnd(34)+1 Exit If NB<>NA Loop Do NC=Rnd(34)+1 Exit If NC<>NA and NC<>NB Loop Do ND=Rnd(34)+1 Exit If ND<>NC and ND<>NB and ND<>NA Loop ME=Rnd(3)+1 Do MF=Rnd(3)+1 Exit If MF<>ME Loop Do MG=Rnd(3)+1 Exit If MG<>MF and MG<>ME Loop Do MH=Rnd(3)+1 Exit If MH<>MG and MH<>MF and MH<>ME Loop ME=ME*2 MF=MF*2 MG=MG*2 MH=MH*2 Ink 0 Bar 230,48 To 459,112 Ink 5 Bar 220,43 To 449,108 FER=0 If NA=<9 FER=1 Else FER=0 End If Paper 5 : Pen 10 Print At(29+FER,4+ME);NA Print At(34,4+ME);LAND1$(NA) If NB=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MF);NB Print At(34,4+MF);LAND1$(NB) If NC=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MG);NC Print At(34,4+MG);LAND1$(NC) If ND=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MH);ND Print At(34,4+MH);LAND1$(ND) Ink 0 Bar 40,130 To 610,146 Ink 14 Bar 30,125 To 600,141 Paper 14 : Pen 2 Print At(7,16);"In welchem Land befindet sich die Hauptstadt ";STADT1$(NA) Locate 54+Len(STADT1$(NA)),16 Input A If A<1 or A>35 Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Eingabefehler" Print At(10,22);"Die Zahl darf nicht grï¿½ï¿½er als 35 und nicht kleiner als 1 sein." Else If LAND1$(A)=LAND1$(NA) Ink 0 Bar 50,160 To 610,195 Ink 5 Bar 40,155 To 600,190 Paper 5 : Pen 13 Print At(32,20);"Richtig." Print At(8,22);"Die Hauptstadt von ";LAND1$(NA);" ist ";STADT1$(NA);"." Else Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Falsch" Print At(10,22);"Die Hauptstadt von ";LAND1$(NA);" ist ";STADT1$(NA);"." End If End If Ink 0 Bar 50,210 To 610,226 Ink 13 Bar 40,205 To 600,221 Paper 13 : Pen 2 Locate 8,26 Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$ Exit If ZURUECK$="e" Exit If ZURUECK$="E" If ZURUECK$="k" TISCH End If A=Free Paper 7 Cls Loop AUSWAHL End Proc Procedure ALPHASTADT Paper 7 : Cls Do Ink 0 Bar 48,18 To 580,30 Ink 2 Bar 38,13 To 570,25 Paper 2 : Pen 4 Print At(7,2);"Bitte geben Sie die richtige der gesuchten Hauptstadt ein.." NA=Rnd(34)+1 Do NB=Rnd(34)+1 Exit If NB<>NA Loop Do NC=Rnd(34)+1 Exit If NC<>NA and NC<>NB Loop Do ND=Rnd(34)+1 Exit If ND<>NC and ND<>NB and ND<>NA Loop ME=Rnd(3)+1 Do MF=Rnd(3)+1 Exit If MF<>ME Loop Do MG=Rnd(3)+1 Exit If MG<>MF and MG<>ME Loop Do MH=Rnd(3)+1 Exit If MH<>MG and MH<>MF and MH<>ME Loop ME=ME*2 MF=MF*2 MG=MG*2 MH=MH*2 Ink 0 Bar 230,48 To 459,112 Ink 5 Bar 220,43 To 449,108 FER=0 If NA=<9 FER=1 Else FER=0 End If Paper 5 : Pen 10 Print At(29+FER,4+ME);NA Print At(34,4+ME);STADT1$(NA) If NB=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MF);NB Print At(34,4+MF);STADT1$(NB) If NC=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MG);NC Print At(34,4+MG);STADT1$(NC) If ND=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MH);ND Print At(34,4+MH);STADT1$(ND) Ink 0 Bar 40,130 To 610,146 Ink 14 Bar 30,125 To 600,141 Paper 14 : Pen 2 Print At(7,16);"Welche Nummer hat die Hauptstadt von ";LAND1$(NA) Locate 44+Len(LAND1$(NA)),16 Input A If A<1 or A>35 Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Eingabefehler" Print At(10,22);"Die Zahl darf nicht grï¿½ï¿½er als 35 und nicht kleiner als 1 sein." Else If STADT1$(A)=STADT1$(NA) Ink 0 Bar 50,160 To 610,195 Ink 5 Bar 40,155 To 600,190 Paper 5 : Pen 13 Print At(32,20);"Richtig." Print At(8,22);"Die Hauptstadt von ";LAND1$(NA);" ist ";STADT1$(NA);"." Else Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Falsch" Print At(10,22);"Die Hauptstadt von ";LAND1$(NA);" ist ";STADT1$(NA);"." End If End If Ink 0 Bar 50,210 To 610,226 Ink 13 Bar 40,205 To 600,221 Paper 13 : Pen 2 Locate 8,26 Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$ Exit If ZURUECK$="e" Exit If ZURUECK$="E" If ZURUECK$="k" TISCH End If A=Free Paper 7 Cls Loop AUSWAHL End Proc Procedure INFO Screen To Back 1 : Screen To Front 2 : Screen 2 Cls Print At(4,2);" Dieses Programm wurde ursprï¿½nglich in der Programmiersprache" Print At(4,4);" GFA-Basic geschrieben." Print At(0,6);"Nachdem wir von GFA-Basic fast zum Wahnsinn getrieben wurden, weil verschie-" Print At(0,8);"dene Befehle nicht korrekt arbeiten oder der Compiler nicht so funktioniert " Print At(4,10);" wie er sollte, stiegen wir kurzer Hand auf AMOS-Basic um." Pen 4 Print At(0,14);"Das Programm wurde von uns 1:1 von GFA-Basic nach AMOS-Basic umgesetzt." Print At(0,16);"Nach der Umsetzung wurde es natï¿½rlich noch etwas verbessert, insofern" Print At(0,18);"wir das mit unseren geringen Programmierkentnissen in AMOS-Basic tun konnten." Print At(0,20);"Dieses Programm schrieb Ralf Schrempp " Print At(0,22);" Altfelixstr.7 , 7630 Lahr/Schw." Print At(0,24);" u. Bernhard Schindler " Print At(0,26);" Kirchstr. 48 , 7639 Kappel-Grafenhausen." SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 End Proc Procedure ABBRUCH1 Menu Off Menu Del : Hide Proc AUSWAHL End Proc Procedure EUROPA Paper 7 Do Cls Ink 0 Bar 30,85 To 620,175 Ink 5 Bar 20,80 To 610,170 Paper 5 : Pen 0 Print At(4,12);"Was wollen sie erraten? " Print At(4,14);"Um das jeweilige Land zu erraten drï¿½cken Sie den Buchstaben < L >," Print At(4,16);"oder um die Stadt zu erraten den Buchstaben < S >." Locate 4,18 Input "Ihre Wahl bitte :";WAHL$ If WAHL$="s" Then EUROPASTADT If WAHL$="S" Then EUROPASTADT If WAHL$="l" Then EUROPALAND If WAHL$="L" Then EUROPALAND Paper 7 Loop End Proc Procedure EUROPASTADT Paper 7 : Cls Do Ink 0 Bar 48,18 To 580,30 Ink 2 Bar 38,13 To 570,25 Paper 2 : Pen 4 Print At(7,2);"Bitte geben Sie die richtige der gesuchten Hauptstadt ein.." NA=Rnd(29)+1 Do NB=Rnd(29)+1 Exit If NB<>NA Loop Do NC=Rnd(29)+1 Exit If NC<>NA and NC<>NB Loop Do ND=Rnd(29)+1 Exit If ND<>NC and ND<>NB and ND<>NA Loop ME=Rnd(3)+1 Do MF=Rnd(3)+1 Exit If MF<>ME Loop Do MG=Rnd(3)+1 Exit If MG<>MF and MG<>ME Loop Do MH=Rnd(3)+1 Exit If MH<>MG and MH<>MF and MH<>ME Loop ME=ME*2 MF=MF*2 MG=MG*2 MH=MH*2 Ink 0 Bar 230,48 To 459,112 Ink 5 Bar 220,43 To 449,108 FER=0 If NA=<9 FER=1 Else FER=0 End If Paper 5 : Pen 10 Print At(29+FER,4+ME);NA Print At(34,4+ME);STADT2$(NA) If NB=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MF);NB Print At(34,4+MF);STADT2$(NB) If NC=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MG);NC Print At(34,4+MG);STADT2$(NC) If ND=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MH);ND Print At(34,4+MH);STADT2$(ND) Ink 0 Bar 40,130 To 610,146 Ink 14 Bar 30,125 To 600,141 Paper 14 : Pen 2 Print At(7,16);"Welche Nummer hat die Hauptstadt von ";LAND2$(NA) Locate 44+Len(LAND2$(NA)),16 Input A If A<1 or A>30 Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Eingabefehler" Print At(10,22);"Die Zahl darf nicht grï¿½ï¿½er als 30 und nicht kleiner als 1 sein." Else If STADT2$(A)=STADT2$(NA) Ink 0 Bar 50,160 To 610,195 Ink 5 Bar 40,155 To 600,190 Paper 5 : Pen 13 Print At(32,20);"Richtig." Print At(8,22);"Die Hauptstadt von ";LAND2$(NA);" ist ";STADT2$(NA);"." Else Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Falsch" Print At(10,22);"Die Hauptstadt von ";LAND2$(NA);" ist ";STADT2$(NA);"." End If End If Ink 0 Bar 50,210 To 610,226 Ink 13 Bar 40,205 To 600,221 Paper 13 : Pen 2 Locate 8,26 Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$ Exit If ZURUECK$="e" Exit If ZURUECK$="E" If ZURUECK$="k" EURO End If A=Free Paper 7 Cls Loop AUSWAHL End Proc Procedure EUROPALAND Paper 7 : Cls Do Ink 0 Bar 48,18 To 580,30 Ink 2 Bar 38,13 To 570,25 Paper 2 : Pen 4 Print At(7,2);"Bitte geben Sie das richtige gesuchte Land ein." NA=Rnd(29)+1 Do NB=Rnd(29)+1 Exit If NB<>NA Loop Do NC=Rnd(29)+1 Exit If NC<>NA and NC<>NB Loop Do ND=Rnd(29)+1 Exit If ND<>NC and ND<>NB and ND<>NA Loop ME=Rnd(3)+1 Do MF=Rnd(3)+1 Exit If MF<>ME Loop Do MG=Rnd(3)+1 Exit If MG<>MF and MG<>ME Loop Do MH=Rnd(3)+1 Exit If MH<>MG and MH<>MF and MH<>ME Loop ME=ME*2 MF=MF*2 MG=MG*2 MH=MH*2 Ink 0 Bar 230,48 To 459,112 Ink 5 Bar 220,43 To 449,108 FER=0 If NA=<9 FER=1 Else FER=0 End If Paper 5 : Pen 10 Print At(29+FER,4+ME);NA Print At(34,4+ME);LAND2$(NA) If NB=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MF);NB Print At(34,4+MF);LAND2$(NB) If NC=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MG);NC Print At(34,4+MG);LAND2$(NC) If ND=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MH);ND Print At(34,4+MH);LAND2$(ND) Ink 0 Bar 40,130 To 610,146 Ink 14 Bar 30,125 To 600,141 Paper 14 : Pen 2 Print At(7,16);"In welchem Land befindet sich die Hauptstadt ";STADT2$(NA) Locate 54+Len(STADT2$(NA)),16 Input A If A<1 or A>30 Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Eingabefehler" Print At(10,22);"Die Zahl darf nicht grï¿½ï¿½er als 30 und nicht kleiner als 1 sein." Else If LAND2$(A)=LAND2$(NA) Ink 0 Bar 50,160 To 610,195 Ink 5 Bar 40,155 To 600,190 Paper 5 : Pen 13 Print At(32,20);"Richtig." Print At(8,22);"Die Hauptstadt von ";LAND2$(NA);" ist ";STADT2$(NA);"." Else Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Falsch" Print At(10,22);"Die Hauptstadt von ";LAND2$(NA);" ist ";STADT2$(NA);"." End If End If Ink 0 Bar 50,210 To 610,226 Ink 13 Bar 40,205 To 600,221 Paper 13 : Pen 2 Locate 8,26 Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$ Exit If ZURUECK$="e" Exit If ZURUECK$="E" If ZURUECK$="k" EURO End If A=Free Paper 7 Cls Loop AUSWAHL End Proc Procedure EURO Unpack 13 To 1 Show : Curs Off Menu$(1)="Programm " Menu$(1,1)="Info " Menu$(1,2)="Musik aus" Menu$(1,3)="Ende " Menu$(2)=" Land 1.Teil " Menu$(2,1)="Schweden " Menu$(2,2)="Island " Menu$(2,3)="Norwegen " Menu$(2,4)="Finnland " Menu$(2,5)="Dï¿½nemark " Menu$(2,6)="Irland " Menu$(2,7)="Frankreich " Menu$(3)="Land 2. Teil " Menu$(3,1)="Portugal " Menu$(3,2)="Spanien " Menu$(3,3)="Luxemburg " Menu$(3,4)="Holland " Menu$(3,5)="Belgien " Menu$(3,6)="England " Menu$(3,7)="Bundes-Republik " Menu$(4)="Land 3.Teil " Menu$(4,1)="Malta " Menu$(4,2)="Ungarn " Menu$(4,3)="Italien " Menu$(4,4)="Schweiz " Menu$(4,5)="Tschecheslowakei" Menu$(4,6)="Polen " Menu$(4,7)="Jugoslawien " Menu$(5)="Land 4.Teil " Menu$(5,1)="ï¿½sterreich " Menu$(5,2)="Albanien " Menu$(5,3)="Bulgarien " Menu$(5,4)="Rumï¿½nien " Menu$(5,5)="Tï¿½rkei " Menu$(5,6)="Griechenland " Menu$(5,7)="Zypern " Menu$(5,8)="Andorra " Repeat On Menu Proc PROGRAMM_EUROPA,EUROPA_AUSWAHL1,EUROPA_AUSWAHL2,EUROPA_AUSWAHL3,EUROPA_AUSWAHL4 On Menu On Menu On Until False End Proc Procedure EUROPA_AUSWAHL1 C=Choice(2) On C Proc SCHWEDEN,ISLAND,NORWEGEN,FINNLAND,Dï¿½NEMARK,IRLAND,FRANKREICH End Proc Procedure EUROPA_AUSWAHL2 C=Choice(2) On C Proc PARTUGAL,SPANIEN,LUXEMBURG,HOLLAND,BELGIEN,GB,BRD End Proc Procedure EUROPA_AUSWAHL3 C=Choice(2) On C Proc MALTA,UNGARN,ITALIEN,SCHWEIZ,TSCHECHLO,POLEN,JUGOSLAWIEN End Proc Procedure EUROPA_AUSWAHL4 C=Choice(2) On C Proc ï¿½STERREICH,ALBANIEN,BULGARIEN,RUMï¿½NIEN,Tï¿½RKEI,GRIECHENLAND,ZYPERN,ï¿½NDï¿½RRA End Proc Procedure PROGRAMM_EUROPA C=Choice(2) On C Proc INFO,MUSIK_AUS,ABBRUCH1 End Proc Procedure LOESCHEN_EU Ink 6 Bar 404,31 To 619,188 End Proc Procedure SCHWEDEN Ink 2 : Paint 185,65 Paper 6 : Pen 2 Print At(53,4);"Schweden Stockholm" Print At(52,13);"Gesamtflï¿½che 449 750 km";Chr$(178) Print At(52,15);"davon sind" Print At(51,16);"6,8% Ackerl., Baumkulturen" Print At(51,17);"0,9% Wiesen u. Dauerweiden" Print At(51,18);"50,7% Hoch- u. Buschwald" Print At(51,19);"41,6% ï¿½dland, Binnengew." Print At(52,7);"Einwohner: ca. 8 400 500" Print At(52,9);"Sprache: Schwedisch" Print At(52,11);"Wï¿½hrung:Schwed. Kronen" SCHLAF LOESCHEN_EU Ink 5 : Paint 185,65 End Proc Procedure ISLAND Ink 2 : Paint 40,40 Paper 6 : Pen 2 Print At(53,4);"Island Reykjavik" Print At(52,13);"Gesamtflï¿½che 102 829 km";Chr$(178) Print At(52,15);"davon sind" Print At(51,16);"0,01% Ackerl.,Baumkulturen" Print At(51,17);"22,1% Wiesen u.Dauerweiden" Print At(51,18);"0,03% Hoch- u. Buschwald" Print At(51,19);"77,83% ï¿½dland, Binnengew." Print At(52,7);"Einwohner: ca. 230 000" Print At(52,9);"Sprache: Islï¿½ndisch" Print At(52,11);"Wï¿½hrung: Islï¿½nd. Krone" SCHLAF LOESCHEN_EU Ink 5 : Paint 40,40 End Proc Procedure NORWEGEN Ink 2 : Paint 155,70 Paper 6 : Pen 2 Print At(53,4);"Norwegen Oslo" Print At(52,13);"Gesamtflï¿½che 323 886 km";Chr$(178) Print At(52,15);"davon sind" Print At(51,16);"2,5% Ackerl., Baumkulturen" Print At(51,17);"0,4% Wiesen u. Dauerweiden" Print At(51,18);"25,7% Hoch- u. Buschwald" Print At(51,19);"71,4% ï¿½dland, Binnengew." Print At(52,7);"Einwohner: ca. 4 100 000" Print At(52,9);"Sprache: Norwegisch" Print At(52,11);"Wï¿½hrung: Norweg. Krone" SCHLAF LOESCHEN_EU Ink 5 : Paint 155,70 End Proc Procedure FINNLAND Ink 2 : Paint 220,50 Paper 6 : Pen 2 Print At(53,4);"Finnland Helsinki" Print At(52,13);"Gesamtflï¿½che 337 034 km";Chr$(178) Print At(52,15);"davon sind" Print At(51,16);"8,1% Ackerl., Baumkulturen" Print At(51,17);"0,3% Wiesen u. Dauerweiden" Print At(51,18);"57,7% Hoch- u. Buschwald" Print At(51,19);"33,9% ï¿½dland, Binnengew." Print At(52,7);"Einwohner: ca. 4 900 000" Print At(52,9);"Sprache: Finnisch" Print At(52,11);"Wï¿½hrung: Finnmark" SCHLAF LOESCHEN_EU Ink 5 : Paint 220,50 End Proc Procedure Dï¿½NEMARK Ink 2 : Paint 168,94 : Paint 168,96 : Paint 155,96 Paper 6 : Pen 2 Print At(53,4);"Dï¿½nemark Kopenhagen" Print At(52,13);"Gesamtflï¿½che 43 069 km";Chr$(178) Print At(52,15);"davon sind" Print At(51,16);"62,1% Ackerl.,Baumkulturen" Print At(51,17);"6,9% Wiesen u.Dauerweiden" Print At(51,18);"10,9% Hoch- u. Buschwald" Print At(51,19);"20,1% ï¿½dland, Binnengew." Print At(52,7);"Einwohner: ca. 5 200 000" Print At(52,9);"Sprache: Dï¿½nisch" Print At(52,11);"Wï¿½hrung: Dï¿½nische Krone" SCHLAF LOESCHEN_EU Ink 5 : Paint 168,94 : Paint 168,96 : Paint 155,96 End Proc Procedure IRLAND Ink 2 : Paint 65,100 Paper 6 : Pen 2 Print At(53,4);"Irland Dublin" Print At(52,7);"Einwohner: ca. 3 500 000" Print At(52,9);"Sprache: Englisch" Print At(52,10);" Gï¿½lisch" Print At(52,12);"Wï¿½hrung: Irisches Pfund" Print At(52,14);"Gesamtflï¿½che 70 280 km";Chr$(178) Print At(52,16);"davon sind" Print At(51,17);"16,4% Ackerl.,Baumkulturen" Print At(51,18);"52,2% Wiesen u.Dauerweiden" Print At(51,19);"3,0% Hoch- u. Buschwald" Print At(51,20);"28,4% ï¿½dland, Binnengew." SCHLAF LOESCHEN_EU Ink 5 : Paint 65,100 End Proc Procedure FRANKREICH Ink 2 : Paint 100,130 : Paint 155,158 Paper 6 : Pen 2 Print At(53,4);"Frankreich Paris" Print At(52,7);"Einwohner: ca. 55 000 000" Print At(52,9);"Sprache: Franzï¿½sisch" Print At(52,11);"Wï¿½hrung: Franz. Franc" Print At(52,14);"Gesamtflï¿½che 543 998 km";Chr$(178) Print At(52,16);"davon sind" Print At(51,17);"35,2% Ackerl.,Baumkulturen" Print At(51,18);"25,4% Wiesen u.Dauerweiden" Print At(51,19);"25,5% Hoch- u. Buschwald" Print At(51,20);"13,9 ï¿½dland, Binnengew." SCHLAF LOESCHEN_EU Ink 5 : Paint 100,130 : Paint 155,158 End Proc Procedure PARTUGAL Ink 2 : Paint 30,160 Paper 6 : Pen 2 Print At(53,4);"Portugal Lissabon" Print At(52,7);"Einwohner: ca. 11 000 000" Print At(52,9);"Sprache: Portugisisch" Print At(52,11);"Wï¿½hrung: Escudo" Print At(52,14);"Gesamtflï¿½che 91 631 km";Chr$(178) Print At(52,16);"davon sind" Print At(51,17);"49,2% Ackerl.,Baumkulturen" Print At(51,18);"6,0% Wiesen u. Dauerweiden" Print At(51,19);"28,1% Hoch- u. Buschwald" Print At(51,20);"16,7% ï¿½dland, Binnengew." SCHLAF LOESCHEN_EU Ink 5 : Paint 30,160 End Proc Procedure SPANIEN Ink 2 : Paint 60,160 : Paint 110,170 Paper 6 : Pen 2 Print At(53,4);"Spanien Madrid" Print At(52,7);"Einwohner: ca. 39 000 000" Print At(52,9);"Sprache: Spanisch" Print At(52,11);"Wï¿½hrung: Peseta" Print At(52,14);"Gesamtflï¿½che 504 750 km";Chr$(178) Print At(52,16);"davon sind" Print At(51,17);"40,8% Ackerl.,Baumkulturen" Print At(51,18);"31,4% Wiesen u.Dauerweiden" Print At(51,19);"22,8% Hoch- u. Buschwald" Print At(51,20);"5,0% ï¿½dland, Binnengew." SCHLAF LOESCHEN_EU Ink 5 : Paint 60,160 : Paint 110,170 End Proc Procedure LUXEMBURG Ink 2 : Paint 139,120 Paper 6 : Pen 2 Print At(53,4);"Luxemburg Luxemburg" Print At(52,7);"Einwohner: ca. 370 000" Print At(52,9);"Sprache: Franzï¿½sisch" Print At(52,10);" Deutsch" Print At(52,11);" Luxemburgisch" Print At(52,13);"Wï¿½hrung: Luxemb. Franc" Print At(52,15);"Gesamtflï¿½che 2 586,4 km";Chr$(178) Print At(52,17);"davon sind" Print At(51,18);"25,5% Ackerl.,Baumkulturen" Print At(51,19);"26,6% Wiesen u.Dauerweiden" Print At(51,20);"33,2Hoch- u. Buschwald" Print At(51,21);"14,7% ï¿½dland, Binnengew." SCHLAF LOESCHEN_EU Ink 5 : Paint 139,120 End Proc Procedure HOLLAND Ink 2 : Paint 135,110 Paper 6 : Pen 2 Print At(53,4);"Holland Amsterdam" Print At(52,7);"Einwohner: ca. 14 400 100" Print At(52,9);"Sprache: Niederlï¿½ndiesch" Print At(52,11);"Wï¿½hrung: Hollï¿½nd. Gulden" Print At(52,13);"Gesamtflï¿½che 33 716 km";Chr$(178) Print At(52,15);"davon sind" Print At(51,16);"23,7% Ackerl.,Baumkulturen" Print At(51,17);"36,2% Wiesen u.Dauerweiden" Print At(51,18);"8,1 Hoch- u. Buschwald" Print At(51,19);"32,0% ï¿½dland, Binnengew." SCHLAF LOESCHEN_EU Ink 5 : Paint 135,110 End Proc Procedure BELGIEN Ink 2 : Paint 134,120 Paper 6 : Pen 2 Print At(53,4);"Belgien Brï¿½ssel" Print At(52,7);"Einwohner: ca. 9 800 000" Print At(52,9);"Sprache: Flï¿½misch" Print At(52,10);" Franzï¿½sisch" Print At(52,11);" Deutsch" Print At(52,13);"Wï¿½hrung: Belgische Franc" Print At(52,15);"Gesamtflï¿½che 30 514 km";Chr$(178) Print At(52,17);"davon sind" Print At(51,18);"27,8% Ackerl.,Baumkulturen" Print At(51,19);"24,5% Wiesen u.Dauerweiden" Print At(51,20);"19,7 Hoch- u. Buschwald" Print At(51,21);"28,0% ï¿½dland, Binnengew." SCHLAF LOESCHEN_EU Ink 5 : Paint 134,120 End Proc Procedure GB Ink 2 : Paint 99,110 : Paint 68,95 Paper 6 : Pen 2 Print At(53,4);"Groï¿½britanien London" Print At(52,15);"Gesamtflï¿½che 224 019 km";Chr$(178) Print At(52,17);"davon sind" Print At(51,18);"29,8% Ackerl.,Baumkulturen" Print At(51,19);"49,6% Wiesen u.Dauerweiden" Print At(51,20);"7,7% Hoch- u. Buschwald" Print At(51,21);"12,9% ï¿½dland, Binnengew." Print At(52,7);"Einwohner: ca. 56 600 000" Print At(52,9);"Sprache: Englisch" Print At(52,10);" Gï¿½lisch" Print At(52,11);" Walisisch" Print At(52,13);"Wï¿½hrung: Pfund Sterling" SCHLAF LOESCHEN_EU Ink 5 : Paint 99,110 : Paint 68,95 End Proc Procedure BRD Ink 2 : Paint 152,119 Paper 6 : Pen 2 Print At(53,4);"Bundesrepublik Berlin" Print At(52,13);"Gesamtflï¿½che 356 755 km";Chr$(178) Print At(52,15);"davon sind" Print At(51,16);"36,5% Ackerl.,Baumkulturen" Print At(51,17);"19,5% Wiesen u.Dauerweiden" Print At(51,18);"28,2% Hoch- u. Buschwald" Print At(51,19);"15,8% ï¿½dland, Binnengew." Print At(52,7);"Einwohner: ca. 81 750 000" Print At(52,9);"Sprache: Deutsch" Print At(52,11);"Wï¿½hrung: Deutsche Mark" SCHLAF LOESCHEN_EU Ink 5 : Paint 152,119 Menu Off Menu Del Hide ï¿½RTENAU End Proc Procedure UNGARN Ink 2 : Paint 220,135 Paper 6 : Pen 2 Print At(53,4);"Ungarn Budapest" Print At(52,7);"Einwohner: ca. 10 700 000" Print At(52,9);"Sprache: Ungarisch" Print At(52,11);"Wï¿½hrung: Forint" Print At(52,14);"Gesamtflï¿½che 93 032 km";Chr$(178) Print At(52,16);"davon sind" Print At(51,17);"60,1% Ackerl.,Baumkulturen" Print At(51,18);"13,8% Wiesen u.Dauerweiden" Print At(51,19);"15,8% Hoch- u. Buschwald" Print At(51,20);"10,3% ï¿½dland, Binnengew." SCHLAF LOESCHEN_EU Ink 5 Paint 220,135 End Proc Procedure ITALIEN Ink 2 : Paint 180,155 : Paint 185,180 : Paint 152,170 Paper 6 : Pen 2 Print At(53,4);"Italien Rom" Print At(52,7);"Einwohner: ca. 57 100 000" Print At(52,9);"Sprache: Italienisch" Print At(52,11);"Wï¿½hrung: Lira" Print At(52,14);"Gesamtflï¿½che 301 230 km";Chr$(178) Print At(52,16);"davon sind" Print At(51,17);"51,8% Ackerl.,Baumkulturen" Print At(51,18);"16,9% Wiesen u.Dauerweiden" Print At(51,19);"19,4% Hoch- u. Buschwald" Print At(51,20);"11,9% ï¿½dland, Binnengew." SCHLAF LOESCHEN_EU Ink 5 : Paint 180,155 : Paint 185,180 : Paint 152,170 End Proc Procedure SCHWEIZ Ink 2 : Paint 150,137 Paper 6 : Pen 2 Print At(53,4);"Schweiz Bern" Print At(52,16);"Gesamtflï¿½che 41 288 km";Chr$(178) Print At(52,18);"davon sind" Print At(51,19);"10,2% Ackerl.,Baumkulturen" Print At(51,20);"42,2% Wiesen u.Dauerweiden" Print At(51,21);"23,8% Hoch- u. Buschwald" Print At(51,22);"23,8% ï¿½dland, Binnengew." Print At(52,7);"Einwohner: ca. 6 500 000" Print At(52,9);"Sprache: Deutsch 65%" Print At(52,10);" Franzï¿½sisch 18%" Print At(52,11);" Italienisch 10%" Print At(52,12);" Rï¿½toromanisch 1%" Print At(52,14);"Wï¿½hrung:Schweiz. Franken" SCHLAF LOESCHEN_EU Ink 5 : Paint 150,137 End Proc Procedure TSCHECHLO Ink 2 : Paint 190,121 Paper 6 : Pen 2 Print At(53,4);"Tschechoslowakei Prag" Print At(52,14);"Gesamtflï¿½che 127 869 km";Chr$(178) Print At(52,16);"davon sind" Print At(51,17);"42,0% Ackerl.,Baumkulturen" Print At(51,18);"13,9% Wiesen u.Dauerweiden" Print At(51,19);"34,8% Hoch- u. Buschwald" Print At(51,20);"9,3% ï¿½dland, Binnengew." Print At(52,7);"Einwohner: ca. 15 500 000" Print At(52,9);"Sprache: Tschechisch" Print At(52,10);" Slowakisch" Print At(52,12);"Wï¿½hrung: Tschech. Kronen" SCHLAF LOESCHEN_EU Ink 5 : Paint 190,121 End Proc Procedure POLEN Ink 2 : Paint 210,109 Paper 6 : Pen 2 Print At(53,4);"Polen Warschau" Print At(52,13);"Gesamtflï¿½che 312 677 km";Chr$(178) Print At(52,15);"davon sind" Print At(51,16);"49,0% Ackerl.,Baumkulturen" Print At(51,17);"13,5% Wiesen u.Dauerweiden" Print At(51,18);"27,3% Hoch- u. Buschwald" Print At(51,19);"10,2% ï¿½dland, Binnengew." Print At(52,7);"Einwohner: ca. 36 900 000" Print At(52,9);"Sprache: Polnisch" Print At(52,11);"Wï¿½hrung: Zloty" SCHLAF LOESCHEN_EU Ink 5 : Paint 210,109 End Proc Procedure JUGOSLAWIEN Ink 2 : Paint 220,145 Paper 6 : Pen 2 Print At(53,4);"Jugoslawien Belgrad" Print At(52,7);"Einwohner: ca. 23 200 000" Print At(52,9);"Sprache: Serbokroatisch" Print At(52,10);" Slowenisch" Print At(52,11);" Mazedonisch" Print At(52,13);"Wï¿½hrung: Dinar" Print At(52,15);"Gesamtflï¿½che 255 804 km";Chr$(178) Print At(52,17);"davon sind" Print At(51,18);"32,1% Ackerl.,Baumkulturen" Print At(51,19);"25,1% Wiesen u.Dauerweiden" Print At(51,20);"34,7% Hoch- u. Buschwald" Print At(51,21);"8,1% ï¿½dland, Binnengew." SCHLAF LOESCHEN_EU Ink 5 : Paint 220,145 End Proc Procedure ï¿½STERREICH Ink 2 : Paint 197,134 Paper 6 : Pen 2 Print At(53,4);"ï¿½sterreich Wien" Print At(52,13);"Gesamtflï¿½che 83 849 km";Chr$(178) Print At(52,15);"davon sind" Print At(51,16);"20,0% Ackerl.,Baumkulturen" Print At(51,17);"26,4% Wiesen u.Dauerweiden" Print At(51,18);"38,2% Hoch- u. Buschwald" Print At(51,19);"15,4% ï¿½dland, Binnengew." Print At(52,7);"Einwohner: ca. 7 600 000" Print At(52,9);"Sprache: Deutsch" Print At(52,11);"Wï¿½hrung: Schilling" SCHLAF LOESCHEN_EU Ink 5 : Paint 197,134 End Proc Procedure ALBANIEN Ink 2 : Paint 229,166 : Paint 224,157 Paper 6 : Pen 2 Print At(53,4);"Albanien Tirana" Print At(52,7);"Einwohner: ca. 2 800 000" Print At(52,9);"Sprache: Slowenisch" Print At(52,10);" Mazedonisch" Print At(52,12);"Wï¿½hrung: Lek" Print At(52,14);"Gesamtflï¿½che 28 748 km";Chr$(178) Print At(52,16);"davon sind" Print At(51,17);"19,3% Ackerl.,Baumkulturen" Print At(51,18);"23,9% Wiesen u.Dauerweiden" Print At(51,19);"43,2% Hoch- u. Buschwald" Print At(51,20);"13,6% ï¿½dland, Binnengew." SCHLAF LOESCHEN_EU Ink 5 : Paint 229,166 : Paint 224,157 End Proc Procedure BULGARIEN Ink 2 : Paint 258,153 Paper 6 : Pen 2 Print At(53,4);"Bulgarien Sofia" Print At(52,7);"Einwohner: ca. 9 000 000" Print At(52,9);"Sprache: Bulgarisch" Print At(52,11);"Wï¿½hrung: Lew" Print At(52,14);"Gesamtflï¿½che 110 912 km";Chr$(178) Print At(52,16);"davon sind" Print At(51,17);"40,8% Ackerl.,Baumkulturen" Print At(51,18);"13,4% Wiesen u.Dauerweiden" Print At(51,19);"33,4% Hoch- u. Buschwald" Print At(51,20);"12,4% ï¿½dland, Binnengew." SCHLAF LOESCHEN_EU Ink 5 : Paint 258,153 End Proc Procedure RUMï¿½NIEN Ink 2 : Paint 258,135 Paper 6 : Pen 2 Print At(53,4);"Rumï¿½nien Bukarest" Print At(52,7);"Einwohner: ca. 22 700 000" Print At(52,9);"Sprache: Rumï¿½nisch" Print At(52,11);"Wï¿½hrung: Lei" Print At(52,14);"Gesamtflï¿½che 237 500 km";Chr$(178) Print At(52,16);"davon sind" Print At(51,17);"44,3% Ackerl.,Baumkulturen" Print At(51,18);"18,6% Wiesen u.Dauerweiden" Print At(51,19);"26,6% Hoch- u. Buschwald" Print At(51,20);"10,5% ï¿½dland, Binnengew." SCHLAF LOESCHEN_EU Ink 5 Paint 258,135 End Proc Procedure Tï¿½RKEI Ink 2 : Paint 300,166 Paper 6 : Pen 2 Print At(53,4);"Tï¿½rkei Ankara" Print At(52,7);"Einwohner: ca. 49 300 000" Print At(52,9);"Sprache: Tï¿½rkisch" Print At(52,11);"Wï¿½hrung: Tï¿½rk. Lira" Print At(52,14);"Gesamtflï¿½che 779 452 km";Chr$(178) Print At(52,16);"davon sind" Print At(51,17);"35.2% Ackerl.,Baumkulturen" Print At(51,18);"33.5% Wiesen u.Dauerweiden" Print At(51,19);"23.4% Hoch- u. Buschwald" Print At(52,20);"7.9% ï¿½dland, Binnengew." SCHLAF LOESCHEN_EU Ink 5 : Paint 300,166 End Proc Procedure GRIECHENLAND Ink 2 : Paint 252,175 : Paint 265,187 Paper 6 : Pen 2 Print At(53,4);"Griechenland Athen" Print At(52,7);"Einwohner: ca. 9 900 000" Print At(52,9);"Sprache: Griechisch" Print At(52,11);"Wï¿½hrung: Drachme" Print At(52,14);"Gesamtflï¿½che 131 944 km";Chr$(178) Print At(52,16);"davon sind" Print At(51,17);"27,5% Ackerl.,Baumkulturen" Print At(51,18);"39,7% Wiesen u.Dauerweiden" Print At(51,19);"19,8% Hoch- u. Buschwald" Print At(51,20);"13,0% ï¿½dland, Binnengew." SCHLAF LOESCHEN_EU Ink 5 : Paint 252,175 : Paint 265,187 End Proc Procedure ZYPERN Ink 2 : Paint 313,186 Paper 6 : Pen 2 Print At(53,4);"Zypern Nikosia" Print At(52,7);"Einwohner: ca. 660 000" Print At(52,9);"Sprache: Griechisch" Print At(52,11);"Wï¿½hrung: Drachme" Print At(52,14);"Gesamtflï¿½che 9 251 km";Chr$(178) Print At(52,16);"davon sind" Print At(51,17);"46.7% Ackerl.,Baumkulturen" Print At(51,18);"10.0% Wiesen u.Dauerweiden" Print At(51,19);"18.5% Hoch- u. Buschwald" Print At(51,20);"24.8% ï¿½dland, Binnengew." SCHLAF LOESCHEN_EU Ink 5 : Paint 313,186 End Proc Procedure ï¿½NDï¿½RRA Ink 2 : Paint 104,154 : Paint 103,156 Paper 6 : Pen 2 Print At(53,4);"Andorra Andorra" Print At(52,7);"Einwohner: ca. 40 000" Print At(52,9);"Sprache: Franzï¿½sisch" Print At(52,10);" Spanisch" Print At(52,12);"Wï¿½hrung: Peseta" Print At(52,14);"Gesamtflï¿½che 453 km";Chr$(178) Print At(52,16);"davon sind" Print At(51,17);"42,0% Ackerl.,Baumkulturen" Print At(51,18);"7,0% Wiesen u. Dauerweiden" Print At(51,19);"1,0% Hoch- u. Buschwald" Print At(51,20);"50,0% ï¿½dland, Binnengew." SCHLAF LOESCHEN_EU Ink 5 : Paint 104,154 : Paint 103,156 End Proc Procedure MALTA Ink 2 : Paint 198,187 Paper 6 : Pen 2 Print At(53,4);"Malta Valletta" Print At(52,7);"Einwohner: ca. 370 000" Print At(52,9);"Sprache: Maltesisch" Print At(52,12);"Wï¿½hrung: Engl. Pfund" Print At(52,14);"Gesamtflï¿½che 315,6 km";Chr$(178) Print At(52,16);"davon sind" Print At(51,17);"50,0% Ackerl.,Baumkulturen" Print At(51,18);"0% Wiesen u. Dauerweiden" Print At(51,19);"0% Hoch- u. Buschwald" Print At(51,20);"50,0% ï¿½dland, Binnengew." SCHLAF LOESCHEN_EU Ink 5 : Paint 198,187 End Proc Procedure ï¿½RTENAU Screen Close 1 Unpack 14 To 1 Show : Curs Off Menu$(1)="Programm " Menu$(1,1)="Info " Menu$(1,2)="Ende " Menu$(2)=" Land 1.Teil " Menu$(2,1)="Offenburg " Menu$(2,2)="Lahr " Menu$(2,3)="Rheinau " Menu$(2,4)="Achern " Menu$(2,5)="Kappelrodeck " Menu$(2,6)="Appenweier " Menu$(2,7)="Oberkirch " Menu$(2,8)="Kehl " Menu$(2,9)="Neuried " Menu$(2,10)="Schutterwald " Menu$(3)="Land 2. Teil " Menu$(3,1)="Schwanau " Menu$(3,2)="Grafenhausen " Menu$(3,3)="Ringsheim " Menu$(3,4)="Rust " Menu$(3,5)="Ettenheim " Menu$(3,6)="Seelbach " Menu$(3,7)="Gengenbach " Menu$(3,8)="Biberach " Menu$(3,9)="Steinach " Menu$(3,10)="Haslach " Menu$(4)="Land 3.Teil " Menu$(4,1)="Hausach " Menu$(4,2)="Hornberg " Menu$(4,3)="Wolfach " Menu$(4,4)="Peterstal " Menu$(4,5)="Oppenau " SCHLAF LOESCHEN_ORT Repeat On Menu Proc PROGRAMM_ï¿½RTENAU,ï¿½RTENAU_AUSWAHL1,ï¿½RTENAU_AUSWAHL2,ï¿½RTENAU_AUSWAHL3 On Menu On Menu On Until False End Proc Procedure ï¿½RTENAU_AUSWAHL1 C=Choice(2) On C Proc OFFENBURG,LAHR,RHEINAU,ACHERN,KAPPELRODECK,APPENWEIER,OBERKIRCH,KEHL,NEURIED,SCHUTTERWALD End Proc Procedure ï¿½RTENAU_AUSWAHL2 C=Choice(2) On C Proc SCHWANAU,GRAFENHAUSEN,RINGSHEIM,RUST,ETTENHEIM,SEELBACH,GENGENBACH,BIBERACH,STEINACH,HASLACH End Proc Procedure ï¿½RTENAU_AUSWAHL3 C=Choice(2) On C Proc HAUSACH,HORNBERG,WOLFACH,PETERSTAL,OPPENAU End Proc Procedure PROGRAMM_ï¿½RTENAU C=Choice(2) On C Proc INFO,ABBRUCH1 End Proc Procedure LOESCHEN_ORT Ink 6 Bar 360,30 To 620,203 End Proc Procedure OFFENBURG Ink 2 : Paper 6 : Pen 2 Paint 130,100 Paint 125,108 Print At(46,4);"Kreisstadt - Offenburg - " Print At(46,6);"Einwohner: 52480" Print At(46,8);"In dieser Stadt ist die " Print At(46,9);"Firma Burda beheimatet." Print At(46,10);"Offenburg besitzt mit der " Print At(46,11);"Oberrheinmesse eine der" Print At(46,12);"grï¿½ï¿½ten Regionalausstellungen" Print At(46,13);"der Bundesrepublik." SCHLAF LOESCHEN_ORT Ink 4 Paint 130,100 Paint 125,108 End Proc Procedure LAHR Ink 2 : Paper 6 : Pen 2 Ellipse 103,138,10,4 Paint 108,138 Paint 105,140 Print At(58,4);" Lahr " Print At(46,6);"Einwohner: 34023" Print At(46,8);"Dies ist die Heimatstadt des" Print At(46,9);"Programmierers Ralf Schrempp." Print At(46,10);"Sehenswert in Lahr ist der" Print At(46,11);"Storchenturm und auch das" Print At(46,12);"Alte Rathaus.Sï¿½dlich von Lahr" Print At(46,13);"befindet sich das" Print At(46,14);"FIAT-Auslieferungslager." Print At(46,15);"Lahr ist ehemalige Kreisstadt." SCHLAF LOESCHEN_ORT Ink 4 Ellipse 103,138,10,4 Paint 108,138 Paint 105,140 End Proc Procedure RHEINAU Ink 2 : Paper 6 : Pen 2 Paint 128,47,4 Print At(58,4);"Rheinau " Print At(48,6);"Einwohner: 9931" Print At(48,8);"Im Rheinau-Linx gibt es ein " Print At(48,9);"groï¿½es Fertighauszentrum." SCHLAF LOESCHEN_ORT Ink 4 Paint 128,47,4 End Proc Procedure ACHERN Ink 2 : Paper 6 : Pen 2 Paint 176,55,5 Print At(58,4);"Achern " Print At(48,6);"Einwohner: 20853" Print At(48,8);"In Achern gibt es das einzige" Print At(48,9);"Sensenmuseum der BRD." SCHLAF LOESCHEN_ORT Ink 4 Paint 176,55,5 End Proc Procedure KAPPELRODECK Ink 2 : Paper 6 : Pen 2 Paint 198,60,4 Print At(48,4);"Kappelrodeck " Print At(48,6);"Einwohner: 5564" Print At(48,8);"Schloï¿½ Rodeck mit Blick in " Print At(48,9);"das schï¿½ne Rheintal.Von Mai " Print At(48,10);"bis September finden hier " Print At(48,11);"Sonderfahrten mit histori- " Print At(48,12);"schen Dampfzï¿½gen statt." SCHLAF LOESCHEN_ORT Ink 4 Paint 198,60,4 End Proc Procedure APPENWEIER Ink 2 : Paper 6 : Pen 2 Paint 150,83,4 Print At(48,4);"Appenweier " Print At(48,6);"Einwohner: 8418" SCHLAF LOESCHEN_ORT Ink 4 Paint 150,83,4 End Proc Procedure OBERKIRCH Ink 2 : Paper 6 : Pen 2 Paint 180,92,4 Print At(50,4);"Oberkirch " Print At(48,6);"Einwohner: 17292" Print At(48,8);"In Oberkirch gibt es viele " Print At(48,9);"alte Fachwerkhï¿½user.Den grï¿½ï¿½-" Print At(48,10);"ten Obstumschlagplatz findet " Print At(48,11);"man hier in Oberkirch." SCHLAF LOESCHEN_ORT Ink 4 Paint 180,92,4 End Proc Procedure KEHL Ink 2 : Paper 6 : Pen 2 Paint 83,75,5 Print At(58,4);"Kehl " Print At(48,6);"Einwohner: 29572" Print At(48,8);"Europabrï¿½cke nach Straï¿½burg" Print At(48,9);"im Elsaï¿½.Weinbrennerhaus und " Print At(48,10);"Hanauermuseum." Print At(48,11);"Ehemalige Kreisstadt." SCHLAF LOESCHEN_ORT Ink 4 Paint 83,75,5 End Proc Procedure NEURIED Ink 2 : Paper 6 : Pen 2 Paint 75,105,4 Print At(55,4);"Neuried " Print At(48,6);"Einwohner:7554" Print At(48,8);"Im Ortsteil Altenheim gibt es " Print At(48,9);"einen schï¿½nen Yachthafen." SCHLAF LOESCHEN_ORT Ink 4 Paint 75,105,4 End Proc Procedure SCHUTTERWALD Ink 2 : Paper 6 : Pen 2 Paint 100,108,4 Print At(48,4);"Schutterwald " Print At(48,6);"Einwohner: 6441" Print At(48,8);"Hier gibt es eine gute Hand-" Print At(48,9);"ballmannschaft, 1.Liga." SCHLAF LOESCHEN_ORT Ink 4 Paint 100,108,4 End Proc Procedure SCHWANAU Ink 2 : Paper 6 : Pen 2 Paint 57,125,4 Print At(54,4);"Schwanau " Print At(48,6);"Einwohner: 5449" Print At(48,8);"Am nahegelenen Rhein gibt es" Print At(48,9);"zwei Schiffshebewerke." SCHLAF LOESCHEN_ORT Ink 4 Paint 57,125,4 End Proc Procedure GRAFENHAUSEN Ink 2 : Paper 6 : Pen 2 Paint 58,153,4 Print At(48,4);"Kappel-Grafenhausen" Print At(48,6);"Einwohner: 3735" Print At(48,8);"Grafenhausen ist die Heimat" Print At(48,9);"des Grafikers Bernhard Sch." Print At(48,10);"Vom Ortsteil Kappel aus,kann " Print At(48,11);"man den weitbekannten Tauber-" Print At(48,12);"gieï¿½en erreichen und diesen" Print At(48,13);"schï¿½nen Landstrich bewundern." SCHLAF LOESCHEN_ORT Ink 4 Paint 58,153,4 End Proc Procedure RINGSHEIM Ink 2 : Paper 6 : Pen 2 Paint 65,168,4 Print At(52,4);"Ringsheim " Print At(48,6);"Einwohner: 1935" Print At(48,8);"Ringsheim ist der sï¿½dlichste" Print At(48,9);"Ort in der Ortenau." SCHLAF LOESCHEN_ORT Ink 4 Paint 65,168,4 End Proc Procedure RUST Ink 2 : Paper 6 : Pen 2 Paint 45,165,4 Print At(58,4);"Rust " Print At(48,6);"Einwohner: 2702" Print At(48,8);"In Rust befindet sich der " Print At(48,9);"nun schon Weltberï¿½hmte " Print At(52,10);"EUROPA _ PARK," Print At(48,11);"wozu auch das Schloï¿½ Balta-" Print At(48,12);"sarburg gehï¿½rt." SCHLAF LOESCHEN_ORT Ink 4 Paint 45,165,4 End Proc Procedure ETTENHEIM Ink 2 : Paper 6 : Pen 2 Paint 75,164,4 Print At(53,4);"Ettenheim " Print At(48,6);"Einwohner: 9558" Print At(48,8);"Am Rande von Ettenheim befin-" Print At(48,9);"det sich ein Werk der" Print At(48,10);"BASF-AG,in dem Videokasetten" Print At(48,11);"produziert werden.Ettenheim" Print At(48,12);"ist ehemaliger Bischofssitz." Print At(48,13);"Aus frï¿½herer Zeit sind noch" Print At(48,14);"zwei Stadttore erhalten." SCHLAF LOESCHEN_ORT Ink 4 Paint 75,164,4 End Proc Procedure SEELBACH Ink 2 : Paper 6 : Pen 2 Paint 129,148,4 Print At(52,4);"Seelbach " Print At(48,6);"Einwohner: 4646" Print At(48,8);"Ist eine kleine Stadt und " Print At(48,9);"zugleich ein Luftkurort.In " Print At(48,10);"Seelbach befindet sich das " Print At(48,11);"Schloï¿½ Dautenstein.Unweit" Print At(48,12);"vom Ort,im Litschental ist " Print At(48,13);"eine guterhaltene Hammer-" Print At(48,14);"schmiede zu sehen,die an" Print At(48,15);"Wochenenden geï¿½ffnet ist." SCHLAF LOESCHEN_ORT Ink 4 Paint 129,148,4 End Proc Procedure GENGENBACH Ink 2 : Paper 6 : Pen 2 Paint 142,122,4 Print At(50,4);"Gengenbach" Print At(48,6);"Einwohner: 10942" Print At(46,8);"Eine denkmalgeschï¿½tzte ehem." Print At(46,9);"alte freie Reichsstadt." Print At(46,10);"Die Stadt der Tï¿½rme, der mit-" Print At(46,11);"telalterlichen Mauern und der" Print At(46,12);"Fachwerkhï¿½user." SCHLAF LOESCHEN_ORT Ink 4 Paint 142,122,4 End Proc Procedure BIBERACH Ink 2 : Paper 6 : Pen 2 Paint 156,143,4 Print At(54,4);"Biberach " Print At(48,6);"Einwohner: 2916" Print At(48,8);"In einem Nachbarort ist die" Print At(48,9);"Zeller-Keramik zu Hause." SCHLAF LOESCHEN_ORT Ink 4 Paint 156,143,4 End Proc Procedure STEINACH Ink 2 : Paper 6 : Pen 2 Paint 172,153,4 Print At(52,4);"Steinach " Print At(48,6);"Einwohner: 3657" SCHLAF LOESCHEN_ORT Ink 4 Paint 172,153,4 End Proc Procedure HASLACH Ink 2 : Paper 6 : Pen 2 Paint 178,162,4 Print At(56,4);"Haslach " Print At(48,6);"Einwohner: 6083" Print At(46,8);"Schwarzwï¿½lder Trachtenmuseum." Print At(46,9);"Bekanntester Sohn war der" Print At(46,10);"Volksschriftsteller Heinrich" Print At(46,11);"Hansjakob.Fï¿½r ihn wurde ein" Print At(46,12);"Museum und ein Archiv" Print At(46,13);"eingerichtet." Print At(46,14);"Dem alemannischen Dichter-" Print At(46,15);"pfarrer Heinrich Hansjakob,der" Print At(46,16);"sich zu Anfang dieses Jahr-" Print At(46,17);"hunderts um die Erhaltung der" Print At(46,18);"Volkstrachten bemï¿½hte,ist in" Print At(46,19);"seiner Heimatstadt Haslach ein" Print At(46,20);"weiters Heimatmuseum,der " Print At(46,21);"FREIHOF gewidmet." SCHLAF LOESCHEN_ORT Ink 4 Paint 178,162,4 End Proc Procedure HAUSACH Ink 2 : Paper 6 : Pen 2 Paint 210,159,4 Print At(54,4);"Hausach " Print At(48,6);"Einwohner: 5292" Print At(48,8);"Auï¿½erhalb von Hausach befin-" Print At(48,9);"det sich der Zweitschï¿½nste" Print At(48,10);"Aussichtsturm des Schwarz-" Print At(48,11);"waldes auf dem Brandenkopf." SCHLAF LOESCHEN_ORT Ink 4 Paint 210,159,4 End Proc Procedure HORNBERG Ink 2 : Paper 6 : Pen 2 Paint 230,180,4 Print At(53,4);"Hornberg " Print At(48,6);"Einwohner: 4765" Print At(48,8);"In Hornberg fand das berï¿½hmte" Print At(48,9);"Hornberger schieï¿½en statt." SCHLAF LOESCHEN_ORT Ink 4 Paint 230,180,4 End Proc Procedure WOLFACH Ink 2 : Paper 6 : Pen 2 Paint 228,154,5 Print At(54,4);"Wolfach " Print At(48,6);"Einwohner: 6111" Print At(48,8);"Hier treffen die Flï¿½sse Wolf" Print At(48,9);"und die Kinzig zusammen.In" Print At(48,10);"Wolfach gibt es noch Reste" Print At(48,11);"der alten Stadtbefestigung" Print At(48,12);"Untertor und Wehrtï¿½rmen zu" Print At(48,13);"sehen.Im Wolfachtal liegt die" Print At(48,14);"Ruine des Fï¿½rstenberger-" Print At(48,15);"Schlosses.Am Ortsrand" Print At(48,16);"befindet sich die Dorotheen-" Print At(48,17);"hï¿½tte,eine Glasblï¿½serei,ein" Print At(48,18);"Glasmuseum und eine Kunst-" Print At(48,19);"ausstellung(sehenswert)." SCHLAF LOESCHEN_ORT Ink 4 Paint 228,154,5 End Proc Procedure PETERSTAL Ink 2 : Paper 6 : Pen 2 Paint 232,110,4 Print At(50,4);"Bad-Peterstal " Print At(48,6);"Einwohner: 3138" Print At(48,8);"Luftkurort.Im Ort sind" Print At(48,9);"mehrere Solebï¿½der und" Print At(48,10);"Mineralbrunnen zu finden." SCHLAF LOESCHEN_ORT Ink 4 Paint 232,110,4 End Proc Procedure OPPENAU Ink 2 : Paper 6 : Pen 2 Paint 200,102,4 Print At(53,4);"Oppenau " Print At(48,6);"Einwohner: 5121" SCHLAF LOESCHEN_ORT Ink 4 Paint 200,102,4 End Proc Procedure AFRIKA Paper 7 Do Cls Ink 0 Bar 30,85 To 620,175 Ink 5 Bar 20,80 To 610,170 Paper 5 : Pen 0 Print At(4,12);"Was wollen sie erraten? " Print At(4,14);"Um das jeweilige Land zu erraten drï¿½cken Sie den Buchstaben < L >," Print At(4,16);"oder um die Stadt zu erraten den Buchstaben < S >." Locate 4,18 Input "Ihre Wahl bitte :";WAHL$ If WAHL$="s" Then AFRIKASTADT If WAHL$="S" Then AFRIKASTADT If WAHL$="l" Then AFRIKALAND If WAHL$="L" Then AFRIKALAND Paper 7 Loop End Proc Procedure AFRIKASTADT Paper 7 : Cls Do Ink 0 Bar 48,18 To 580,30 Ink 2 Bar 38,13 To 570,25 Paper 2 : Pen 4 Print At(7,2);"Bitte geben Sie die richtige der gesuchten Hauptstadt ein.." NA=Rnd(40)+1 Do NB=Rnd(40)+1 Exit If NB<>NA Loop Do NC=Rnd(40)+1 Exit If NC<>NA and NC<>NB Loop Do ND=Rnd(40)+1 Exit If ND<>NC and ND<>NB and ND<>NA Loop ME=Rnd(3)+1 Do MF=Rnd(3)+1 Exit If MF<>ME Loop Do MG=Rnd(3)+1 Exit If MG<>MF and MG<>ME Loop Do MH=Rnd(3)+1 Exit If MH<>MG and MH<>MF and MH<>ME Loop ME=ME*2 MF=MF*2 MG=MG*2 MH=MH*2 Ink 0 Bar 230,48 To 459,112 Ink 5 Bar 220,43 To 449,108 FER=0 If NA=<9 FER=1 Else FER=0 End If Paper 5 : Pen 10 Print At(29+FER,4+ME);NA Print At(34,4+ME);STADT3$(NA) If NB=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MF);NB Print At(34,4+MF);STADT3$(NB) If NC=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MG);NC Print At(34,4+MG);STADT3$(NC) If ND=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MH);ND Print At(34,4+MH);STADT3$(ND) Ink 0 Bar 40,130 To 610,146 Ink 14 Bar 30,125 To 600,141 Paper 14 : Pen 2 Print At(7,16);"Welche Nummer hat die Hauptstadt von ";LAND3$(NA) Locate 44+Len(LAND3$(NA)),16 Input A If A<1 or A>41 Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Eingabefehler" Print At(10,22);"Die Zahl darf nicht grï¿½ï¿½er als 41 und nicht kleiner als 1 sein." Else If STADT3$(A)=STADT3$(NA) Ink 0 Bar 50,160 To 610,195 Ink 5 Bar 40,155 To 600,190 Paper 5 : Pen 13 Print At(32,20);"Richtig." Print At(8,22);"Die Hauptstadt von ";LAND3$(NA);" ist ";STADT3$(NA);"." Else Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Falsch" Print At(10,22);"Die Hauptstadt von ";LAND3$(NA);" ist ";STADT3$(NA);"." End If End If Ink 0 Bar 50,210 To 610,226 Ink 13 Bar 40,205 To 600,221 Paper 13 : Pen 2 Locate 8,26 Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$ Exit If ZURUECK$="e" Exit If ZURUECK$="E" If ZURUECK$="k" AFFEN End If A=Free Paper 7 Cls Loop AUSWAHL End Proc Procedure AFRIKALAND Paper 7 : Cls Do Ink 0 Bar 48,18 To 580,30 Ink 2 Bar 38,13 To 570,25 Paper 2 : Pen 4 Print At(7,2);"Bitte geben Sie das richtige gesuchte Land ein." NA=Rnd(40)+1 Do NB=Rnd(40)+1 Exit If NB<>NA Loop Do NC=Rnd(40)+1 Exit If NC<>NA and NC<>NB Loop Do ND=Rnd(40)+1 Exit If ND<>NC and ND<>NB and ND<>NA Loop ME=Rnd(3)+1 Do MF=Rnd(3)+1 Exit If MF<>ME Loop Do MG=Rnd(3)+1 Exit If MG<>MF and MG<>ME Loop Do MH=Rnd(3)+1 Exit If MH<>MG and MH<>MF and MH<>ME Loop ME=ME*2 MF=MF*2 MG=MG*2 MH=MH*2 Ink 0 Bar 230,48 To 459,112 Ink 5 Bar 220,43 To 449,108 FER=0 If NA=<9 FER=1 Else FER=0 End If Paper 5 : Pen 10 Print At(29+FER,4+ME);NA Print At(34,4+ME);LAND3$(NA) If NB=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MF);NB Print At(34,4+MF);LAND3$(NB) If NC=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MG);NC Print At(34,4+MG);LAND3$(NC) If ND=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MH);ND Print At(34,4+MH);LAND3$(ND) Ink 0 Bar 40,130 To 610,146 Ink 14 Bar 30,125 To 600,141 Paper 14 : Pen 2 Print At(7,16);"In welchem Land befindet sich die Hauptstadt ";STADT3$(NA) Locate 54+Len(STADT3$(NA)),16 Input A If A<1 or A>41 Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Eingabefehler" Print At(10,22);"Die Zahl darf nicht grï¿½ï¿½er als 41 und nicht kleiner als 1 sein." Else If LAND3$(A)=LAND3$(NA) Ink 0 Bar 50,160 To 610,195 Ink 5 Bar 40,155 To 600,190 Paper 5 : Pen 13 Print At(32,20);"Richtig." Print At(8,22);"Die Hauptstadt von ";LAND3$(NA);" ist ";STADT3$(NA);"." Else Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Falsch" Print At(10,22);"Die Hauptstadt von ";LAND3$(NA);" ist ";STADT3$(NA);"." End If End If Ink 0 Bar 50,210 To 610,226 Ink 13 Bar 40,205 To 600,221 Paper 13 : Pen 2 Locate 8,26 Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$ Exit If ZURUECK$="e" Exit If ZURUECK$="E" If ZURUECK$="k" AFFEN End If A=Free Paper 7 Cls Loop AUSWAHL End Proc Procedure AFFEN Unpack 11 To 1 Show : Curs Off Menu$(1)="Programm " Menu$(1,1)="Info " Menu$(1,2)="Musik aus " Menu$(1,3)="Ende " Menu$(2)=" Land 1.Teil " Menu$(2,1)="Marokko " Menu$(2,2)="Algerien " Menu$(2,3)="Tunesien " Menu$(2,4)="Libyen " Menu$(2,5)="ï¿½gypten " Menu$(2,6)="Sudan " Menu$(2,7)="ï¿½thiopien " Menu$(2,8)="Somalia " Menu$(2,9)="Kenia " Menu$(2,10)="Tansania " Menu$(2,11)="Uganda " Menu$(3)="Land 2. Teil " Menu$(3,1)="Rwanda " Menu$(3,2)="Malavi " Menu$(3,3)="Sambia " Menu$(3,4)="Simbabwe " Menu$(3,5)="Mocambique " Menu$(3,6)="Botswana " Menu$(3,7)="Sï¿½dafrika " Menu$(3,8)="Namibia " Menu$(3,9)="Angola " Menu$(3,10)="Kongo " Menu$(3,11)="Gabun " Menu$(4)="Land 3.Teil " Menu$(4,1)="Kamerun " Menu$(4,2)="Zaire " Menu$(4,3)="Zentralafrika " Menu$(4,4)="Tschad " Menu$(4,5)="Nigeria" Menu$(4,6)="Benin " Menu$(4,7)="Togo " Menu$(4,8)="Ghana " Menu$(4,9)="Elfenbeinkï¿½ste " Menu$(4,10)="Liberia " Menu$(5)="Land 4.Teil " Menu$(5,1)="Guinea " Menu$(5,2)="Senegal " Menu$(5,3)="Sierra Leone " Menu$(5,4)="Mauretanien " Menu$(5,5)="Sahara " Menu$(5,6)="Mali " Menu$(5,7)="Obervolta " Menu$(5,8)="Niger " Menu$(5,9)="Madagaskar " Repeat On Menu Proc PROGRAMM_AFRIKA,AFRIKA_AUSWAHL1,AFRIKA_AUSWAHL2,AFRIKA_AUSWAHL3,AFRIKA_AUSWAHL4 On Menu On Menu On Until False End Proc Procedure AFRIKA_AUSWAHL1 C=Choice(2) On C Proc MAROKKO,ALGERIEN,TUNESIEN,LIBYEN,ï¿½GYPTEN,SUDAN,ï¿½THIOPIEN,SOMALIA,KENIA,TUNSANIA,UGANDA End Proc Procedure AFRIKA_AUSWAHL2 C=Choice(2) On C Proc RWANDA,MALAVI,SAMBIA,SIMBABWE,MOCAMBIQUE,BOTSWANA,Sï¿½DAFFEN,NAMIBIA,ANGOLA,KONGO,GABUN End Proc Procedure AFRIKA_AUSWAHL3 C=Choice(2) On C Proc KAMERUN,ZAIRE,ZENTRALAFRIKA,TSCHAD,NIGERIA,BENIN,TUGO,GHANA,ELFENBEINKï¿½STE,LIBERIA End Proc Procedure AFRIKA_AUSWAHL4 C=Choice(2) On C Proc GUINEA,SENEGAL,SIERRA_LEONE,MAURETANIEN,SAHARA,MALI,OBERVOLTA,NIGER,MADAGASKAR End Proc Procedure PROGRAMM_AFRIKA C=Choice(2) On C Proc INFO,MUSIK_AUS,ABBRUCH1 End Proc Procedure LOESCHEN_NORDAM Ink 6 Bar 341,31 To 618,188 End Proc Procedure MAROKKO Ink 2 : Paper 6 : Pen 2 : Paint 55,25 Print At(47,5);"Marokko Rabat" Print At(47,8);"Einwohner: 22 800 000" Print At(47,10);"Wï¿½hrung: Dirham" Print At(46,14);"Gesamtflï¿½che 458 730 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"17.6% Ackerl. u. Baumkulturen" Print At(47,18);"17.2% Wiesen u. Dauerweiden" Print At(47,19);"12.0% Hoch- u. Buschwald" Print At(47,20);"53.2% ï¿½dland, Binnengew." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 55,25 End Proc Procedure ALGERIEN Ink 2 : Paper 6 : Pen 2 : Paint 97,30 Print At(47,4);"Algerien Algier" Print At(47,8);"Einwihner: 21 400 000" Print At(47,10);"Wï¿½hrung: Algerischer Dinar" Print At(46,14);"Gesamtflï¿½che 2 293 190 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"2.9% Ackerl. u. Baumkulturen" Print At(47,18);"15.7% Wiesen u. Dauerweiden" Print At(47,19);"1.0% Hoch- u. Buschwald" Print At(47,20);"80.4% ï¿½dland, Binnengew." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 97,30 End Proc Procedure TUNESIEN Ink 2 : Paper 6 : Pen 2 : Paint 125,17 Print At(47,4);"Tunesien Tunis" Print At(47,8);"Einwohner: 7 000 000" Print At(47,10);"Wï¿½hrung: Tunesischer Dinar" Print At(46,14);"Gesamtflï¿½che 164 150 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"27.5% Ackerl. u. Baumkulturen" Print At(47,18);"19.8% Wiesen u. Dauerweiden" Print At(47,19);"7.5% Hoch- u. Buschwald" Print At(47,20);"45.2% ï¿½dland, Binnengew." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 125,17 End Proc Procedure LIBYEN Ink 2 : Paper 6 : Pen 2 : Paint 140,35 Print At(47,4);"Libyen Tripolis" Print At(47,8);"Einwohner: 3 600 000" Print At(47,10);"Wï¿½hrung: Libyscher Dinar" Print At(46,14);"Gesamtflï¿½che 1 759 540 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"1.4% Ackerland u. Baumkulturen" Print At(47,18);"0.6% Wiesen u. Dauerweiden" Print At(47,19);"0.3% Hoch- u. Buschwald" Print At(47,20);"97.7% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 140,35 End Proc Procedure ï¿½GYPTEN Ink 2 : Paper 6 : Pen 2 : Paint 205,40 Print At(47,4);"ï¿½gypten Kairo" Print At(47,8);"Einwohner: 45 800 000" Print At(47,10);"Wï¿½hrung: ï¿½gypt. Pfund" Print At(46,14);"Gesamtflï¿½che 1 001 449 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"2.8% Ackerland u. Baumkulturen" Print At(47,18);"0.0% Wiesen u. Dauerweiden" Print At(47,19);"0.0% Hoch- u. Buschwald" Print At(47,20);"97.2% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 205,40 End Proc Procedure SUDAN Ink 2 : Paper 6 : Pen 2 : Paint 210,70 Print At(47,4);"Sudan Khartum" Print At(47,8);"Einwohner: 20 900 000" Print At(47,10);"Wï¿½hrung: Sudanesisches Pfund" Print At(46,14);"Gesamtflï¿½che 2 505 813 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"2.8% Ackerland u. Baumkulturen" Print At(47,18);"9.6% Wiesen u. Dauerweiden" Print At(47,19);"36.5% Hoch- u. Buschwald" Print At(47,20);"51.1% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 210,70 End Proc Procedure ï¿½THIOPIEN Ink 2 : Paper 6 : Pen 2 : Paint 250,85 Print At(47,4);"ï¿½thiopien Addis Abeba" Print At(47,8);"Einwohner: 42 200 000" Print At(47,10);"Wï¿½hrung: Birr" Print At(46,14);"Gesamtflï¿½che 1 221 900 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"10.6% Ackerl. u. Baumkulturen" Print At(47,18);"54.0% Wiesen u. Dauerweiden" Print At(47,19);"7.2% Hoch- u. Buschwald" Print At(47,20);"28.2% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 250,85 End Proc Procedure SOMALIA Ink 2 : Paper 6 : Pen 2 : Paint 260,95 Print At(47,4);"Somalia Mogadischo" Print At(47,8);"Einwohner: 5 400 000" Print At(47,10);"Wï¿½hrung: Somalia-Shilling" Print At(46,14);"Gesamtflï¿½che 637 657 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"1.5% Ackerl. u. Baumkulturen" Print At(47,18);"32.3% Wiesen u. Dauerweiden" Print At(47,19);"22.6% Hoch- u. Buschwald" Print At(47,20);"43.6% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 260,95 End Proc Procedure KENIA Ink 2 : Paper 6 : Pen 2 : Paint 235,95 Print At(47,4);"Kenia Nairobi" Print At(47,8);"Einwohner: 19 500 000" Print At(47,10);"Wï¿½hrung: Kenia Shilling" Print At(46,14);"Gesamtflï¿½che 582 646 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"2.9% Ackerl. u. Baumkulturen" Print At(47,18);"6.8% Wiesen u. Dauerweiden" Print At(47,19);"3.9% Hoch- u. Buschwald" Print At(47,20);"86.4% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 235,95 End Proc Procedure TUNSANIA Ink 2 : Paper 6 : Pen 2 : Paint 229,121 Print At(47,4);"Tansania Dodoma" Print At(47,8);"Einwohner: 21 100 000" Print At(47,10);"Wï¿½hrung: Tansania Shilling" Print At(46,14);"Gesamtflï¿½che 939 828 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"12.5% Ackerl. u. Baumkulturen" Print At(47,18);"47.6% Wiesen u. Dauerweiden" Print At(47,19);"33.1% Hoch- u. Buschwald" Print At(47,20);"6.8% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 229,121 End Proc Procedure UGANDA Ink 2 : Paper 6 : Pen 2 : Paint 220,96 Print At(47,4);"Uganda Kampala" Print At(47,8);"Einwohner: 15 200 000" Print At(47,10);"Wï¿½hrung: Uganda Shilling" Print At(46,14);"Gesamtflï¿½che 235 886 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"20.7% Ackerl.u. Baumkulturen" Print At(47,18);"21.2% Wiesen u. Dauerweiden" Print At(47,19);"38.9% Hoch- u. Buschwald" Print At(47,20);"19.2% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 220,96 End Proc Procedure RWANDA Ink 2 : Paper 6 : Pen 2 : Paint 208,108 : Paint 213,106 Print At(47,4);"Rwanda Kigali" Print At(47,8);"Einwohner: 5 900 000" Print At(47,10);"Wï¿½hrung: Rwanda Franc" Print At(46,14);"Gesamtflï¿½che 26 338 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"26.7% Ackerl. u. Baumkulturen" Print At(47,18);"31.0% Wiesen u. Dauerweiden" Print At(47,19);"12.5% Hoch- u. Buschwald" Print At(47,20);"29.8% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 : Paint 208,108 : Paint 213,106 End Proc Procedure MALAVI Ink 2 : Paper 6 : Pen 2 : Paint 227,132 Print At(47,4);"Malawi Lilongwe" Print At(47,8);"Einwohner: 6 800 000" Print At(47,10);"Wï¿½hrung: Malawi Kwacha" Print At(46,14);"Gesamtflï¿½che 118 484 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"25.1% Ackerl. u. Baumkulturen" Print At(47,18);"5.1% Wiesen u. Dauerweiden" Print At(47,19);"19.5% Hoch- u. Buschwald" Print At(47,20);"50.3% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 : Paint 227,132 End Proc Procedure SAMBIA Ink 2 : Paper 6 : Pen 2 : Paint 198,139 Print At(47,4);"Sambia Lusaka" Print At(47,8);"Einwohner: 6 400 000" Print At(47,10);"Wï¿½hrung: Kwacha" Print At(46,14);"Gesamtflï¿½che 746 254 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"6.3% Ackerl. u. Baumkulturen" Print At(47,18);"44.9% Wiesen u. Dauerweiden" Print At(47,19);"45.1% Hoch- u. Buschwald" Print At(47,20);"3.7% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 198,139 End Proc Procedure SIMBABWE Ink 2 : Paper 6 : Pen 2 : Paint 211,150 Print At(47,4);"Zimbabwe Salisbury" Print At(47,8);"Einwohner: 8 000 000" Print At(47,10);"Wï¿½hrung: Zimbabwe Dollar" Print At(46,14);"Gesamtflï¿½che 390 622 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"4.7% Ackerl. u. Baumkulturen" Print At(47,18);"12.5% Wiesen u. Dauerweiden" Print At(47,19);"60.5% Hoch- u. Buschwald" Print At(47,20);"22.3% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 211,150 End Proc Procedure MOCAMBIQUE Ink 2 : Paper 6 : Pen 2 : Paint 222,155 Print At(47,4);"Mosambik Maputo" Print At(47,8);"Einwohner: 13 700 000" Print At(47,10);"Wï¿½hrung: Metical" Print At(46,14);"Gesamtflï¿½che 778 009 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"3.4% Ackerl. u. Baumkulturen" Print At(47,18);"56.2% Wiesen u. Dauerweiden" Print At(47,19);"24.8% Hoch- u. Buschwald" Print At(47,20);"15.6% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 222,155 End Proc Procedure BOTSWANA Ink 2 : Paper 6 : Pen 2 : Paint 190,155 Print At(47,4);"Botswana Gaborone" Print At(47,8);"Einwohner: 1 050 000" Print At(47,10);"Wï¿½hrung: Pula" Print At(46,14);"Gesamtflï¿½che 600 372 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"0.7% Ackerl. u. Baumkulturen" Print At(47,18);"65.8% Wiesen u. Dauerweiden" Print At(47,19);"1.6% Hoch- u. Buschwald" Print At(47,20);"31.9% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 190,155 End Proc Procedure Sï¿½DAFFEN Ink 2 : Paper 6 : Pen 2 : Paint 200,170 Print At(47,4);"Sï¿½dafrika Pretoria" Print At(47,8);"Einwohner: 31 600 000" Print At(47,10);"Wï¿½hrung: Rand" Print At(46,14);"Gesamtflï¿½che 1 221 037 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"9.9% Ackerl. u. Baumkulturen" Print At(47,18);"74.0% Wiesen u. Dauerweiden" Print At(47,19);"3.4% Hoch- u. Buschwald" Print At(47,20);"12.7% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 200,170 End Proc Procedure NAMIBIA Ink 2 : Paper 6 : Pen 2 : Paint 155,165 Print At(47,4);"Namibia Windhuk" Print At(47,8);"Einwohner: 1 500 000" Print At(46,14);"Gesamtflï¿½che 824 292 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"0.8% Ackerl. u. Baumkulturen" Print At(47,18);"64.2% Wiesen u. Dauerweiden" Print At(47,19);"12.6% Hoch- u. Buschwald" Print At(47,20);"22.4% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 155,165 End Proc Procedure ANGOLA Ink 2 : Paper 6 : Pen 2 : Paint 150,130 Print At(47,4);"Angola Luanda" Print At(47,8);"Einwohner: 8 500 000" Print At(47,10);"Wï¿½hrung: Kwanza" Print At(46,14);"Gesamtflï¿½che 1 246 700 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"0.7% Ackerl. u. Baumkulturen" Print At(47,18);"23.3% Wiesen u. Dauerweiden" Print At(47,19);"34.6% Hoch- u. Buschwald" Print At(47,20);"41.4% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 150,130 End Proc Procedure KONGO Ink 2 : Paper 6 : Pen 2 : Paint 150,105 Print At(47,4);"Kongo Brazzaville" Print At(47,8);"Einwohner: 1 700 000" Print At(47,10);"Wï¿½hrung: GFA-Franc" Print At(46,14);"Gesamtflï¿½che 342 000 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"1.8% Ackerl. u. Baumkulturen" Print At(47,18);"41.8% Wiesen u. Dauerweiden" Print At(47,19);"47.5% Hoch- u. Buschwald" Print At(47,20);"8.9% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 150,105 End Proc Procedure GABUN Ink 2 : Paper 6 : Pen 2 : Paint 125,110 Print At(47,4);"Gabun Libreville" Print At(47,8);"Einwohner: 1 100 000" Print At(47,10);"Wï¿½hrung: CFA-Franc" Print At(46,14);"Gesamtflï¿½che 267 667 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"0.5% Ackerl. u. Baumkulturen" Print At(47,18);"19.0% Wiesen u. Dauerweiden" Print At(47,19);"74.7% Hoch- u. Buschwald" Print At(47,20);"5.8% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 125,110 End Proc Procedure KAMERUN Ink 2 : Paper 6 : Pen 2 : Paint 132,92 Print At(47,4);"Kamerun Jaunde" Print At(47,8);"Einwohner: 9 500 000" Print At(47,10);"Wï¿½hrung: CFA-Franc" Print At(46,14);"Gesamtflï¿½che 475 442 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"9.0% Ackerl. u. Baumkulturen" Print At(47,18);"17.5% Wiesen u. Dauerweiden" Print At(47,19);"63.2% Hoch- u. Buschwald" Print At(47,20);"10.3% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 132,92 End Proc Procedure ZAIRE Ink 2 : Paper 6 : Pen 2 : Paint 160,115 Print At(47,4);"Zaire Kinshasa" Print At(47,8);"Einwohner: 29 700 000" Print At(47,10);"Wï¿½hrung: Zaï¿½re" Print At(46,14);"Gesamtflï¿½che 2 345 409 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"3.1% Ackerl. u. Baumkulturen" Print At(47,18);"27.9% Wiesen u. Dauerweiden" Print At(47,19);"55.1% Hoch- u. Buschwald" Print At(47,20);"13.9% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 160,115 End Proc Procedure ZENTRALAFRIKA Ink 2 : Paper 6 : Pen 2 : Paint 160,85 Print At(47,4);"Zentralafrika Bangi" Print At(47,8);"Einwohner: 2 500 000" Print At(47,10);"Wï¿½hrung: CFA-Franc" Print At(46,14);"Gesamtflï¿½che 622 984 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"9.5% Ackerl. u. Baumkulturen" Print At(47,18);"0.2% Wiesen u. Dauerweiden" Print At(47,19);"12.0% Hoch- u. Buschwald" Print At(47,20);"78.3% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 160,85 End Proc Procedure TSCHAD Ink 2 : Paper 6 : Pen 2 : Paint 160,70 Print At(47,4);"Tschad Ndjamena" Print At(47,8);"Einwohner: 4 900 000" Print At(47,10);"Wï¿½hrung: CFA-Franc" Print At(46,14);"Gesamtflï¿½che 1 284 000 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"5.4% Ackerl. u. Baumkulturen" Print At(47,18);"35.0% Wiesen u. Dauerweiden" Print At(47,19);"12.9% Hoch- u. Buschwald" Print At(47,20);"46.7% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 160,70 End Proc Procedure NIGERIA Ink 2 : Paper 6 : Pen 2 : Paint 110,80 Print At(47,4);"Nigeria Lagos" Print At(47,8);"Einwohner: 92 000 000" Print At(47,10);"Wï¿½hrung: Naira" Print At(46,14);"Gesamtflï¿½che 923 768 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"23.6% Ackerl. u. Baumkulturen" Print At(47,18);"27.9% Wiesen u. Dauerweiden" Print At(47,19);"34.2% Hoch- u. Buschwald" Print At(47,20);"14.3% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 110,80 End Proc Procedure BENIN Ink 2 : Paper 6 : Pen 2 : Paint 93,85 Print At(47,4);"Benin Porto Novo" Print At(47,8);"Einwohner: 3 800 000" Print At(47,10);"Wï¿½hrung:CFA-Franc" Print At(46,14);"Gesamtflï¿½che 112 622 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"13.7% Ackerl. u. Baumkulturen" Print At(47,18);"3.9% Wiesen u. Dauerweiden" Print At(47,19);"19.2% Hoch- u. Buschwald" Print At(47,20);"63.2% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 93,85 End Proc Procedure TUGO Ink 2 : Paper 6 : Pen 2 : Paint 86,84 Print At(47,4);"Togo Lome" Print At(47,8);"Einwohner: 2 800 000" Print At(47,10);"Wï¿½hrung: CFA-Franc" Print At(46,14);"Gesamtflï¿½che 56 600 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"38.6% Ackerl. u. Baumkulturen" Print At(47,18);"3.5% Wiesen u. Dauerweiden" Print At(47,19);"9.5% Hoch- u. Buschwald" Print At(47,20);"48.4% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 86,84 End Proc Procedure GHANA Ink 2 : Paper 6 : Pen 2 : Paint 75,85 Print At(47,4);"Ghana Accra" Print At(47,8);"Einwohner: 13 000 000" Print At(47,10);"Wï¿½hrung: Cedi" Print At(46,14);"Gesamtflï¿½che 238 538 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"11.9% Ackerl. u. Baumkulturen" Print At(47,18);"47.1% Wiesen u. Dauerweiden" Print At(47,19);"10.3% Hoch- u. Buschwald" Print At(47,20);"30.7% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 75,85 End Proc Procedure ELFENBEINKï¿½STE Ink 2 : Paper 6 : Pen 2 : Paint 60,85 Print At(47,4);"Elfenbeinkï¿½ste Abidjan" Print At(47,8);"Einwohner: 9 500 000" Print At(47,10);"Wï¿½hrung: CFA-Franc" Print At(46,14);"Gesamtflï¿½che 322 463 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"27.4% Ackerl. u. Baumkulturen" Print At(47,18);"24.8% Wiesen u. Dauerweiden" Print At(47,19);"37.2% Hoch- u. Buschwald" Print At(47,20);"10.6% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 60,85 End Proc Procedure LIBERIA Ink 2 : Paper 6 : Pen 2 : Paint 45,90 Print At(47,4);"Liberia Monrovia" Print At(47,8);"Einwohner: 2 100 000" Print At(47,10);"Wï¿½hrung: Liberianischer Dollar" Print At(46,14);"Gesamtflï¿½che 111 369 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"34.5% Ackerl. u. Baumkulturen" Print At(47,18);"2.2% Wiesen u. Dauerweiden" Print At(47,19);"32.5% Hoch- u. Buschwald" Print At(47,20);"30.8% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 45,90 End Proc Procedure GUINEA Ink 2 : Paper 6 : Pen 2 : Paint 25,75 Print At(47,4);"Guinea Conakry" Print At(47,8);"Einwohner: 5 300 000" Print At(47,10);"Wï¿½hrung: Syli" Print At(46,14);"Gesamtflï¿½che 245 857 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"0.0% Ackerl. u. Baumkulturen" Print At(47,18);"4.3% Wiesen u. Dauerweiden" Print At(47,19);"0.0% Hoch- u. Buschwald" Print At(47,20);"95.7% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 25,75 End Proc Procedure SENEGAL Ink 2 : Paper 6 : Pen 2 Paint 29,66 Print At(47,4);"Senegal Dakar" Print At(47,8);"Einwohner: 6 400 000" Print At(47,10);"Wï¿½hrung: CFA-Franc" Print At(46,14);"Gesamtflï¿½che 196 722 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"28.4% Ackerl., Baumkulturen" Print At(47,18);"29.0% Wiesen u. Dauerweiden" Print At(47,19);"27.1% Hoch- u. Buschwald" Print At(47,20);"15.5% ï¿½dland, Binnengew." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 29,66 End Proc Procedure SIERRA_LEONE Ink 2 : Paper 6 : Pen 2 Paint 32,86 Print At(47,4);"Sierra Leone Freetown" Print At(47,8);"Einwohner: 3 500 000" Print At(47,10);"Wï¿½hrung: Leone" Print At(46,14);"Gesamtflï¿½che 71 740 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"51.1% Ackerl. u. Baumkulturen" Print At(47,18);"30.7% Wiesen u. Dauerweiden" Print At(47,19);"4.2% Hoch- u. Buschwald" Print At(47,20);"14.0% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 32,86 End Proc Procedure MAURETANIEN Ink 2 : Paper 6 : Pen 2 Paint 20,60 Print At(47,4);"Mauretanien Nuakschott" Print At(47,8);"Einwohner: 1 800 000" Print At(47,10);"Wï¿½hrung: Ouguiya" Print At(46,14);"Gesamtflï¿½che 1 030 700 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"0.3% Ackerl. u. Baumkulturen" Print At(47,18);"38.1% Wiesen u. Dauerweiden" Print At(47,19);"14.7% Hoch- u. Buschwald" Print At(47,20);"46.9% ï¿½dland, Binnengew." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 20,60 End Proc Procedure SAHARA Ink 2 : Paper 6 : Pen 2 Paint 30,40 Print At(47,4);"Sahara El Aaiun" Print At(47,8);"Einwohner: 150 000" Print At(47,14);"Gesamtflï¿½che 266 000 km";Chr$(178) SCHLAF LOESCHEN_NORDAM Ink 5 Paint 30,40 End Proc Procedure MALI Ink 2 : Paper 6 : Pen 2 Paint 37,67 Print At(47,4);"Mali Bamako" Print At(47,8);"Einwohner: 7 700 000" Print At(47,10);"Wï¿½hrung: Mali-Franc" Print At(46,14);"Gesamtflï¿½che 1 240 142 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"9.4% Ackerl. u. Baumkulturen" Print At(47,18);"24.2% Wiesen u. Dauerweiden" Print At(47,19);"3.6% Hoch- u. Buschwald" Print At(47,20);"62.8% ï¿½dland, Binnengew." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 37,67 End Proc Procedure OBERVOLTA Ink 2 : Paper 6 : Pen 2 : Paint 78,73 Print At(47,4);"Obervolta Wagadugu" Print At(47,8);"Einwohner: 6 600 000" Print At(47,10);"Wï¿½hrung: CFA-Franc" Print At(46,14);"Gesamtflï¿½che 274 200 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"19.6% Ackerl. u. Baumkulturen" Print At(47,18);"50.1% Wiesen u. Dauerweiden" Print At(47,19);"15.0% Hoch- u. Buschwald" Print At(47,20);"15.3% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 78,73 End Proc Procedure NIGER Ink 2 : Paper 6 : Pen 2 : Paint 110,60 Print At(47,4);"Niger Niamey" Print At(47,8);"Einwohner: 5 900 000" Print At(47,10);"Wï¿½hrung: CFA-Franc" Print At(46,14);"Gesamtflï¿½che 1 267 000 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"9.6% Ackerl. u. Baumkulturen" Print At(47,18);"2.3% Wiesen u. Dauerweiden" Print At(47,19);"12.3% Hoch- u. Buschwald" Print At(47,20);"75.8% ï¿½dland, Binnengew." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 110,60 End Proc Procedure MADAGASKAR Ink 2 : Paper 6 : Pen 2 : Paint 275,160 Print At(47,4);"Madagaskar Antananativo" Print At(47,8);"Einwohner: 9 700 000" Print At(47,10);"Wï¿½hrung: Madagaskar-Franc" Print At(46,14);"Gesamtflï¿½che 587 041 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,17);"4.9% Ackerl. u. Baumkulturen" Print At(47,18);"57.9% Wiesen u. Dauerweiden" Print At(47,19);"21.3% Hoch- u. Buschwald" Print At(47,20);"15.9% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN_NORDAM Ink 5 Paint 275,160 End Proc Procedure AUSTRALIEN Paper 7 Do Cls Ink 0 Bar 30,85 To 620,175 Ink 5 Bar 20,80 To 610,170 Paper 5 : Pen 0 Print At(4,12);"Was wollen sie erraten? " Print At(4,14);"Um das jeweilige Land zu erraten drï¿½cken Sie den Buchstaben < L >," Print At(4,16);"oder um die Stadt zu erraten den Buchstaben < S >." Locate 4,18 Input "Ihre Wahl bitte :";WAHL$ If WAHL$="s" Then AUSTRALIENSTADT If WAHL$="S" Then AUSTRALIENSTADT If WAHL$="l" Then AUSTRALIENLANDFRAGEN If WAHL$="L" Then AUSTRALIENLANDFRAGEN Paper 7 Loop End Proc Procedure AUSTRALIENSTADT Paper 7 : Cls Do Ink 0 Bar 48,18 To 580,30 Ink 2 Bar 38,13 To 570,25 Paper 2 : Pen 4 Print At(7,2);"Bitte geben Sie die richtige der gesuchten Hauptstadt ein.." NA=Rnd(7)+1 Do NB=Rnd(7)+1 Exit If NB<>NA Loop Do NC=Rnd(7)+1 Exit If NC<>NA and NC<>NB Loop Do ND=Rnd(7)+1 Exit If ND<>NC and ND<>NB and ND<>NA Loop ME=Rnd(3)+1 Do MF=Rnd(3)+1 Exit If MF<>ME Loop Do MG=Rnd(3)+1 Exit If MG<>MF and MG<>ME Loop Do MH=Rnd(3)+1 Exit If MH<>MG and MH<>MF and MH<>ME Loop ME=ME*2 MF=MF*2 MG=MG*2 MH=MH*2 Ink 0 Bar 230,48 To 459,112 Ink 5 Bar 220,43 To 449,108 FER=0 If NA=<9 FER=1 Else FER=0 End If Paper 5 : Pen 10 Print At(29+FER,4+ME);NA Print At(34,4+ME);STADT4$(NA) If NB=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MF);NB Print At(34,4+MF);STADT4$(NB) If NC=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MG);NC Print At(34,4+MG);STADT4$(NC) If ND=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MH);ND Print At(34,4+MH);STADT4$(ND) Ink 0 Bar 40,130 To 610,146 Ink 14 Bar 30,125 To 600,141 Paper 14 : Pen 2 Print At(7,16);"Welche Nummer hat die Hauptstadt von ";LAND4$(NA) Locate 44+Len(LAND4$(NA)),16 Input A If A<1 or A>8 Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Eingabefehler" Print At(10,22);"Die Zahl darf nicht grï¿½ï¿½er als 8 und nicht kleiner als 1 sein." Else If STADT4$(A)=STADT4$(NA) Ink 0 Bar 50,160 To 610,195 Ink 5 Bar 40,155 To 600,190 Paper 5 : Pen 13 Print At(32,20);"Richtig." Print At(8,22);"Die Hauptstadt von ";LAND4$(NA);" ist ";STADT4$(NA);"." Else Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Falsch" Print At(10,22);"Die Hauptstadt von ";LAND4$(NA);" ist ";STADT4$(NA);"." End If End If Ink 0 Bar 50,210 To 610,226 Ink 13 Bar 40,205 To 600,221 Paper 13 : Pen 2 Locate 8,26 Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$ Exit If ZURUECK$="e" Exit If ZURUECK$="E" If ZURUECK$="k" AUSTRALIA End If A=Free Paper 7 Cls Loop AUSWAHL End Proc Procedure AUSTRALIENLANDFRAGEN Paper 7 : Cls Do Ink 0 Bar 48,18 To 580,30 Ink 2 Bar 38,13 To 570,25 Paper 2 : Pen 4 Print At(7,2);"Bitte geben Sie das richtige gesuchte Land ein." NA=Rnd(7)+1 Do NB=Rnd(7)+1 Exit If NB<>NA Loop Do NC=Rnd(7)+1 Exit If NC<>NA and NC<>NB Loop Do ND=Rnd(7)+1 Exit If ND<>NC and ND<>NB and ND<>NA Loop ME=Rnd(3)+1 Do MF=Rnd(3)+1 Exit If MF<>ME Loop Do MG=Rnd(3)+1 Exit If MG<>MF and MG<>ME Loop Do MH=Rnd(3)+1 Exit If MH<>MG and MH<>MF and MH<>ME Loop ME=ME*2 MF=MF*2 MG=MG*2 MH=MH*2 Ink 0 Bar 230,48 To 459,112 Ink 5 Bar 220,43 To 449,108 FER=0 If NA=<9 FER=1 Else FER=0 End If Paper 5 : Pen 10 Print At(29+FER,4+ME);NA Print At(34,4+ME);LAND4$(NA) If NB=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MF);NB Print At(34,4+MF);LAND4$(NB) If NC=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MG);NC Print At(34,4+MG);LAND4$(NC) If ND=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MH);ND Print At(34,4+MH);LAND4$(ND) Ink 0 Bar 40,130 To 610,146 Ink 14 Bar 30,125 To 600,141 Paper 14 : Pen 2 Print At(7,16);"In welchem Land befindet sich die Hauptstadt ";STADT4$(NA) Locate 54+Len(STADT4$(NA)),16 Input A If A<1 or A>8 Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Eingabefehler" Print At(10,22);"Die Zahl darf nicht grï¿½ï¿½er als 8 und nicht kleiner als 1 sein." Else If LAND4$(A)=LAND4$(NA) Ink 0 Bar 50,160 To 610,195 Ink 5 Bar 40,155 To 600,190 Paper 5 : Pen 13 Print At(32,20);"Richtig." Print At(8,22);"Die Hauptstadt von ";LAND4$(NA);" ist in ";STADT4$(NA);"." Else Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Falsch" Print At(10,22);"Die Hauptstadt von ";LAND4$(NA);" ist ";STADT4$(NA);"." End If End If Ink 0 Bar 50,210 To 610,226 Ink 13 Bar 40,205 To 600,221 Paper 13 : Pen 2 Locate 8,26 Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$ Exit If ZURUECK$="e" Exit If ZURUECK$="E" If ZURUECK$="k" AUSTRALIA End If A=Free Paper 7 Cls Loop AUSWAHL End Proc Procedure LOESCHEN_AUSTRAL Ink 6 Bar 361,30 To 618,193 End Proc Procedure AUSTRALIA Unpack 10 To 1 Show : Curs Off Menu$(1)="Programm " Menu$(1,1)="Info " Menu$(1,2)="Musik aus " Menu$(1,3)="Ende " Menu$(2)=" Land 1.Teil " Menu$(2,1)="Malaysia " Menu$(2,2)="Indonesien " Menu$(2,3)="Papua-Neuguin. " Menu$(2,4)="Fitschi-Inseln " Menu$(2,5)="Neuseeland " Menu$(2,6)="Australien " Repeat On Menu Proc PROGRAMM_AUSTR,AUSTRALIEN_AUSWAHL On Menu On Menu On Until False End Proc Procedure AUSTRALIEN_AUSWAHL C=Choice(2) On C Proc MALAYSIA,INDONESIEN,PAPUA,FITSCHI,NEUSEELAND,AUSTRALIENLAND End Proc Procedure PROGRAMM_AUSTR C=Choice(2) On C Proc INFO,MUSIK_AUS,ABBRUCH1 End Proc Procedure MALAYSIA Ink 2 : Paint 52,25 : Paint 113,23 Paper 6 : Pen 2 Print At(48,4);"Malaysia Kuala Lumpur" Print At(46,14);"Gesamtflï¿½che 332 632 km";Chr$(178) Print At(48,16);"davon sind" Print At(47,18);"10.6% Ackerl. u. Baumkulturen" Print At(47,19);"15.0% Wiesen u. Dauerweiden" Print At(47,20);"74.4% Hoch- u. Buschwald" Print At(48,21);"0.0% ï¿½dland, Binnengew. etc." Print At(48,8);"Einwohner: 15 200 000" Print At(48,10);"Wï¿½hrung: Malayischer Ringgit" SCHLAF LOESCHEN_AUSTRAL Ink 5 : Paint 52,25 : Paint 113,23 End Proc Procedure INDONESIEN Ink 2 : Paint 40,40 : Paint 69,59 : Paint 113,27 : Paint 123,46 : Paint 140,63 : Paint 205,55 Paper 6 : Pen 2 Print At(48,4);"Indonesien Djakarta" Print At(46,14);"Gesamtflï¿½che 1 482 394 km";Chr$(178) Print At(48,16);"davon sind" Print At(48,18);"9.5% Ackerl. u. Baumkulturen" Print At(48,19);"0.0% Wiesen u. Dauerweiden" Print At(47,20);"63.9% Hoch- u. Buschwald" Print At(47,21);"26.6% ï¿½dland, Binnengew. etc." Print At(47,8);"Einwohner: 163 400 000" Print At(47,10);"Wï¿½hrung: Rupiah" SCHLAF LOESCHEN_AUSTRAL Ink 5 : Paint 40,40 : Paint 69,59 : Paint 113,27 : Paint 123,46 : Paint 140,63 : Paint 205,55 End Proc Procedure PAPUA Ink 2 : Paint 215,55 Paper 6 : Pen 2 Print At(48,4);"Papua-Neuguinea Konedugu" Print At(48,10);"Gesamtflï¿½che 461 700 km";Chr$(178) Print At(48,6);"Einwohner: 3 600 000" Print At(48,8);"Wï¿½hrung: Kina" SCHLAF LOESCHEN_AUSTRAL Ink 5 : Paint 215,55 End Proc Procedure FITSCHI Ink 2 : Paint 310,91 Paper 6 : Pen 2 Print At(48,4);"Fitschi-Ins. Suva" Print At(48,10);"Gesamtflï¿½che 18 300 km";Chr$(178) Print At(48,6);"Einwohner: 690 000" Print At(48,8);"Wï¿½hrung: Fidschi Dollar" SCHLAF LOESCHEN_AUSTRAL Ink 5 : Paint 310,91 End Proc Procedure NEUSEELAND Ink 2 : Paint 274,153 : Paint 250,160 Paper 6 : Pen 2 Print At(48,4);"Neuseeland Wellington" Print At(46,14);"Gesamtflï¿½che 268 675 km";Chr$(178) Print At(48,16);"davon sind" Print At(48,18);"3.0% Ackerl. u. Baumkulturen" Print At(47,19);"47.8% Wiesen u. Dauerweiden" Print At(47,20);"23.1% Hoch- u. Buschwald" Print At(47,21);"26.1% ï¿½dland, Binnengew. etc." Print At(47,8);"Einwohner: 3 200 000" Print At(47,10);"Wï¿½hrung: Neuseeland Dollar" SCHLAF LOESCHEN_AUSTRAL Ink 5 : Paint 274,153 : Paint 250,160 End Proc Procedure AUSTRALIENLAND Ink 2 : Paint 220,120 : Paint 180,155 Paper 6 : Pen 2 Print At(48,4);"Australien Canberra" Print At(46,14);"Gesamtflï¿½che 7 686 849 km";Chr$(178) Print At(48,16);"davon sind" Print At(48,18);"5.8% Ackerl. u. Baumkulturen" Print At(47,19);"58.6% Wiesen u. Dauerweiden" Print At(48,20);"4.5% Hoch- u. Buschwald" Print At(47,21);"31.1% ï¿½dland, Binnengew. etc." Print At(47,8);"Einwohner: 15 500 000" Print At(47,10);"Wï¿½hrung: Australischer Dollar" SCHLAF LOESCHEN_AUSTRAL Ink 5 : Paint 220,120 : Paint 180,155 End Proc Procedure Sï¿½DAMERIKA Paper 7 Do Cls Ink 0 Bar 30,85 To 620,175 Ink 5 Bar 20,80 To 610,170 Paper 5 : Pen 0 Print At(4,12);"Was wollen sie erraten? " Print At(4,14);"Um das jeweilige Land zu erraten drï¿½cken Sie den Buchstaben < L >," Print At(4,16);"oder um die Stadt zu erraten den Buchstaben < S >." Locate 4,18 Input "Ihre Wahl bitte :";WAHL$ If WAHL$="s" Then Sï¿½DAMERIKASTADT If WAHL$="S" Then Sï¿½DAMERIKASTADT If WAHL$="l" Then Sï¿½DAMERIKALAND If WAHL$="L" Then Sï¿½DAMERIKALAND Paper 7 Loop End Proc Procedure Sï¿½DAMERIKASTADT Paper 7 : Cls Do Ink 0 Bar 48,18 To 580,30 Ink 2 Bar 38,13 To 570,25 Paper 2 : Pen 4 Print At(7,2);"Bitte geben Sie die richtige der gesuchten Hauptstadt ein.." NA=Rnd(12)+1 Do NB=Rnd(12)+1 Exit If NB<>NA Loop Do NC=Rnd(12)+1 Exit If NC<>NA and NC<>NB Loop Do ND=Rnd(12)+1 Exit If ND<>NC and ND<>NB and ND<>NA Loop ME=Rnd(3)+1 Do MF=Rnd(3)+1 Exit If MF<>ME Loop Do MG=Rnd(3)+1 Exit If MG<>MF and MG<>ME Loop Do MH=Rnd(3)+1 Exit If MH<>MG and MH<>MF and MH<>ME Loop ME=ME*2 MF=MF*2 MG=MG*2 MH=MH*2 Ink 0 Bar 230,48 To 459,112 Ink 5 Bar 220,43 To 449,108 FER=0 If NA=<9 FER=1 Else FER=0 End If Paper 5 : Pen 10 Print At(29+FER,4+ME);NA Print At(34,4+ME);STADT5$(NA) If NB=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MF);NB Print At(34,4+MF);STADT5$(NB) If NC=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MG);NC Print At(34,4+MG);STADT5$(NC) If ND=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MH);ND Print At(34,4+MH);STADT5$(ND) Ink 0 Bar 40,130 To 610,146 Ink 14 Bar 30,125 To 600,141 Paper 14 : Pen 2 Print At(7,16);"Welche Nummer hat die Hauptstadt von ";LAND5$(NA) Locate 44+Len(LAND5$(NA)),16 Input A If A<1 or A>13 Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Eingabefehler" Print At(10,22);"Die Zahl darf nicht grï¿½ï¿½er als 13 und nicht kleiner als 1 sein." Else If STADT5$(A)=STADT5$(NA) Ink 0 Bar 50,160 To 610,195 Ink 5 Bar 40,155 To 600,190 Paper 5 : Pen 13 Print At(32,20);"Richtig." Print At(8,22);"Die Hauptstadt von ";LAND5$(NA);" ist ";STADT5$(NA);"." Else Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Falsch" Print At(10,22);"Die Hauptstadt von ";LAND5$(NA);" ist ";STADT5$(NA);"." End If End If Ink 0 Bar 50,210 To 610,226 Ink 13 Bar 40,205 To 600,221 Paper 13 : Pen 2 Locate 8,26 Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$ Exit If ZURUECK$="e" Exit If ZURUECK$="E" If ZURUECK$="k" SUEDAMI End If A=Free Paper 7 Cls Loop AUSWAHL End Proc Procedure Sï¿½DAMERIKALAND Paper 7 : Cls Do Ink 0 Bar 48,18 To 580,30 Ink 2 Bar 38,13 To 570,25 Paper 2 : Pen 4 Print At(7,2);"Bitte geben Sie das richtige gesuchte Land ein." NA=Rnd(12)+1 Do NB=Rnd(12)+1 Exit If NB<>NA Loop Do NC=Rnd(12)+1 Exit If NC<>NA and NC<>NB Loop Do ND=Rnd(12)+1 Exit If ND<>NC and ND<>NB and ND<>NA Loop ME=Rnd(3)+1 Do MF=Rnd(3)+1 Exit If MF<>ME Loop Do MG=Rnd(3)+1 Exit If MG<>MF and MG<>ME Loop Do MH=Rnd(3)+1 Exit If MH<>MG and MH<>MF and MH<>ME Loop ME=ME*2 MF=MF*2 MG=MG*2 MH=MH*2 Ink 0 Bar 230,48 To 459,112 Ink 5 Bar 220,43 To 449,108 FER=0 If NA=<9 FER=1 Else FER=0 End If Paper 5 : Pen 10 Print At(29+FER,4+ME);NA Print At(34,4+ME);LAND5$(NA) If NB=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MF);NB Print At(34,4+MF);LAND5$(NB) If NC=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MG);NC Print At(34,4+MG);LAND5$(NC) If ND=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MH);ND Print At(34,4+MH);LAND5$(ND) Ink 0 Bar 40,130 To 610,146 Ink 14 Bar 30,125 To 600,141 Paper 14 : Pen 2 Print At(7,16);"In welchem Land befindet sich die Hauptstadt ";STADT5$(NA) Locate 54+Len(STADT5$(NA)),16 Input A If A<1 or A>13 Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Eingabefehler" Print At(10,22);"Die Zahl darf nicht grï¿½ï¿½er als 13 und nicht kleiner als 1 sein." Else If LAND5$(A)=LAND5$(NA) Ink 0 Bar 50,160 To 610,195 Ink 5 Bar 40,155 To 600,190 Paper 5 : Pen 13 Print At(32,20);"Richtig." Print At(8,22);"Die Hauptstadt von ";LAND5$(NA);" ist in ";STADT5$(NA);"." Else Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Falsch" Print At(10,22);"Die Hauptstadt von ";LAND5$(NA);" ist ";STADT5$(NA);"." End If End If Ink 0 Bar 50,210 To 610,226 Ink 13 Bar 40,205 To 600,221 Paper 13 : Pen 2 Locate 8,26 Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$ Exit If ZURUECK$="e" Exit If ZURUECK$="E" If ZURUECK$="k" SUEDAMI End If A=Free Paper 7 Cls Loop AUSWAHL End Proc Procedure SUEDAMI Unpack 8 To 1 Show : Curs Off Menu$(1)="Programm " Menu$(1,1)="Info " Menu$(1,2)="Musik aus " Menu$(1,3)="Ende " Menu$(2)=" Land 1.Teil " Menu$(2,1)="Brasilien " Menu$(2,2)="Venezuela " Menu$(2,3)="Guyana " Menu$(2,4)="Surinam " Menu$(2,5)="Franz.Guyana " Menu$(2,6)="Kolumbien " Menu$(3)="Land 2. Teil " Menu$(3,1)="Ecuador " Menu$(3,2)="Peru " Menu$(3,3)="Bolivien " Menu$(3,4)="Paraguy " Menu$(3,5)="Chile " Menu$(3,6)="Uruguay " Menu$(3,7)="Argentinien " Repeat On Menu Proc PROGRAMM_SUEDAMERIKA,SUEDAMERIKA_AUSWAHL1,SUEDAMERIKA_AUSWAHL2 On Menu On Menu On Until False End Proc Procedure SUEDAMERIKA_AUSWAHL1 C=Choice(2) On C Proc BRASILIEN,VENEZUELA,GUYANA,SURINAME,FRANZ,KOLUMBIEN End Proc Procedure SUEDAMERIKA_AUSWAHL2 C=Choice(2) On C Proc ECUADOR,PERU,BOLIVIEN,PARAGUAY,CHILE,URUGUAY,ARGENTINIEN End Proc Procedure PROGRAMM_SUEDAMERIKA C=Choice(2) On C Proc INFO,MUSIK_AUS,ABBRUCH1 End Proc Procedure BRASILIEN Ink 2 : Paint 160,90 Paper 6 : Pen 2 Print At(44,4);"Brasilien Brasilia" Print At(42,14);"Gesamtflï¿½che 8 511 965 km";Chr$(178) Print At(48,16);"davon sind" Print At(44,18);"3.5% Ackerland u. Baumkulturen" Print At(43,19);"12.6% Wiesen u. Dauerweiden" Print At(43,20);"60.8% Hoch- u. Buschwald" Print At(43,21);"23.1% ï¿½dland, Binnengew. etc." Print At(43,8);"Einwohner: 132 600 000" Print At(43,10);"Wï¿½hrung: Cruzeiro" SCHLAF LOESCHEN Ink 5 : Paint 160,90 End Proc Procedure VENEZUELA Ink 2 : Paint 90,20 Paper 6 : Pen 2 Print At(44,4);"Venezuela Caracas" Print At(42,14);"Gesamtflï¿½che 912 050 km";Chr$(178) Print At(48,16);"davon sind" Print At(44,18);"5.7% Ackerland u. Baumkulturen" Print At(43,19);"15.2% Wiesen u. Dauerweiden" Print At(43,20);"52.6% Hoch- u. Buschwald" Print At(43,21);"26.5% ï¿½dland, Binnengew. etc." Print At(43,8);"Einwohner: 16 900 000" Print At(43,10);"Wï¿½hrung: Bolivar" SCHLAF LOESCHEN Ink 5 : Paint 90,20 End Proc Procedure GUYANA Ink 2 : Paint 120,30 : Paint 128,30 Paper 6 : Pen 2 Print At(44,4);"Guyana Georgetown" Print At(42,14);"Gesamtflï¿½che 214 970 km";Chr$(178) Print At(48,16);"incl. Guyana und Suriname" Print At(44,18);"3.8% Ackerland u. Baumkulturen" Print At(43,19);"11.3% Wiesen u. Dauerweiden" Print At(43,20);"65.9% Hoch- u. Buschwald" Print At(43,21);"19.0% ï¿½dland, Binnengew. etc." Print At(43,8);"Einwohner: 940 000" Print At(43,10);"Wï¿½hrung: Guyana Dollar" SCHLAF LOESCHEN Ink 5 : Paint 128,30 : Paint 120,30 End Proc Procedure SURINAME Ink 2 : Paint 133,31 Paper 6 : Pen 2 Print At(44,4);"Suriname Paramaribo" Print At(42,14);"Gesamtflï¿½che 214 970 km";Chr$(178) Print At(48,16);"incl. Guyana und Suriname" Print At(44,18);"3.8% Ackerland u. Baumkulturen" Print At(43,19);"11.3% Wiesen u. Dauerweiden" Print At(43,20);"65.9% Hoch- u. Buschwald" Print At(43,21);"19.0% ï¿½dland, Binnengew. etc." Print At(43,8);"Einwohner: 350 000" Print At(43,10);"Wï¿½hrung: Surinam Gulden" SCHLAF LOESCHEN Ink 5 : Paint 133,31 End Proc Procedure FRANZ Ink 2 : Paint 144,32 : Paint 145,37 Paper 6 : Pen 2 Print At(44,4);"Franz.Guayana Cayenne" Print At(42,14);"Gesamtflï¿½che 214 970 km";Chr$(178) Print At(48,16);"incl. Guyana und Suriname" Print At(44,18);"3.8% Ackerland u. Baumkulturen" Print At(43,19);"11.3% Wiesen u. Dauerweiden" Print At(43,20);"65.9% Hoch- u. Buschwald" Print At(43,21);"19.0% ï¿½dland, Binnengew. etc." SCHLAF LOESCHEN Ink 5 : Paint 144,32 : Paint 145,37 End Proc Procedure KOLUMBIEN Ink 2 : Paint 62,34 Paper 6 : Pen 2 Print At(44,4);"Kolumbien Bogota" Print At(42,14);"Gesamtflï¿½che 1 138 914 km";Chr$(178) Print At(48,16);"davon sind" Print At(44,18);"4.6% Ackerland u. Baumkulturen" Print At(43,19);"15.0% Wiesen u. Dauerweiden" Print At(43,20);"45.0% Hoch- u. Buschwald" Print At(43,21);"35.4% ï¿½dland, Binnengew. etc." Print At(43,8);"Einwohner: 28 200 000" Print At(43,10);"Wï¿½hrung: Kolumbianischer Peso" SCHLAF LOESCHEN Ink 5 : Paint 62,34 End Proc Procedure ECUADOR Ink 2 : Paint 36,47 Paper 6 : Pen 2 Print At(44,4);"Ecuador Quito" Print At(42,14);"Gesamtflï¿½che 283 561 km";Chr$(178) Print At(48,16);"davon sind" Print At(43,18);"13.5% Ackerland u. Baumkulturen" Print At(44,19);"7.8% Wiesen u. Dauerweiden" Print At(43,20);"52.4% Hoch- u. Buschwald" Print At(43,21);"26.3% ï¿½dland, Binnengew. etc." Print At(43,8);"Einwohner: 9 100 000" Print At(43,10);"Wï¿½hrung: Sucre" SCHLAF LOESCHEN Ink 5 : Paint 36,47 End Proc Procedure PERU Ink 2 : Paint 50,78 Paper 6 : Pen 2 Print At(44,4);"Peru Lima" Print At(42,14);"Gesamtflï¿½che 1 285 216 km";Chr$(178) Print At(48,16);"davon sind" Print At(44,18);"2.2% Ackerland u. Baumkulturen" Print At(43,19);"21.3% Wiesen u. Dauerweiden" Print At(43,20);"67.7% Hoch- u. Buschwald" Print At(44,21);"8.8% ï¿½dland, Binnengew. etc." Print At(43,8);"Einwohner: 19 700 000" Print At(43,10);"Wï¿½hrung: Sol" SCHLAF LOESCHEN Ink 5 : Paint 50,78 End Proc Procedure BOLIVIEN Ink 2 : Paint 92,80 Paper 6 : Pen 2 Print At(44,4);"Bolivien La Paz" Print At(42,14);"Gesamtflï¿½che 1 098 581 km";Chr$(178) Print At(48,16);"davon sind" Print At(44,18);"2.8% Ackerland u. Baumkulturen" Print At(43,19);"10.3% Wiesen u. Dauerweiden" Print At(43,20);"42.8% Hoch- u. Buschwald" Print At(43,21);"44.1% ï¿½dland, Binnengew. etc." Print At(43,8);"Einwohner: 6 400 000" Print At(43,10);"Wï¿½hrung: Peso Boliviano" SCHLAF LOESCHEN Ink 5 : Paint 92,80 End Proc Procedure PARAGUAY Ink 2 : Paint 130,105 Paper 6 : Pen 2 Print At(44,4);"Paraguay Asuncion" Print At(42,14);"Gesamtflï¿½che 406 752 km";Chr$(178) Print At(48,16);"davon sind" Print At(44,18);"2.3% Ackerland u. Baumkulturen" Print At(43,19);"24.6% Wiesen u. Dauerweiden" Print At(43,20);"50.5% Hoch- u. Buschwald" Print At(43,21);"22.6% ï¿½dland, Binnengew. etc." Print At(43,8);"Einwohner: 3 300 000" Print At(43,10);"Wï¿½hrung: Guarani" SCHLAF LOESCHEN Ink 5 : Paint 130,105 End Proc Procedure CHILE Ink 2 : Paint 91,125 : Paint 91,135 Paper 6 : Pen 2 Print At(44,4);"Chile Santiago de Chile" Print At(42,14);"Gesamtflï¿½che 756 945 km";Chr$(178) Print At(48,16);"davon sind" Print At(44,18);"6.1% Ackerland u. Baumkulturen" Print At(43,19);"14.8% Wiesen u. Dauerweiden" Print At(43,20);"27.3% Hoch- u. Buschwald" Print At(43,21);"51.8% ï¿½dland, Binnengew. etc." Print At(43,8);"Einwohner: 12 000 000" Print At(43,10);"Wï¿½hrung: Chilenischer Peso" SCHLAF LOESCHEN Ink 5 : Paint 91,125 : Paint 91,135 End Proc Procedure URUGUAY Ink 2 : Paint 150,125 Paper 6 : Pen 2 Print At(44,4);"Uruguay Montevideo" Print At(42,14);"Gesamtflï¿½che 177 508 km";Chr$(178) Print At(48,16);"davon sind" Print At(43,18);"11.0% Ackerland u. Baumkulturen" Print At(43,19);"77.2% Wiesen u. Dauerweiden" Print At(44,20);"3.2% Hoch- u. Buschwald" Print At(44,21);"8.6% ï¿½dland, Binnengew. etc." Print At(43,8);"Einwohner: 2 900 000" Print At(43,10);"Wï¿½hrung: Uruguayischer neuer Peso" SCHLAF LOESCHEN Ink 5 : Paint 150,125 End Proc Procedure ARGENTINIEN Ink 2 : Paint 130,125 Paper 6 : Pen 2 Print At(44,4);"Argentinien Buenos Aires" Print At(42,14);"Gesamtflï¿½che 2 776 889 km";Chr$(178) Print At(48,16);"davon sind" Print At(44,18);"9.4% Ackerland u. Baumkulturen" Print At(43,19);"52.2% Wiesen u. Dauerweiden" Print At(43,20);"22.6% Hoch- u. Buschwald" Print At(43,21);"15.8% ï¿½dland, Binnengew. etc." Print At(43,8);"Einwohner: 30 600 000" Print At(43,10);"Wï¿½hrung: Argentinischer Peso" SCHLAF LOESCHEN Ink 5 : Paint 130,125 End Proc Procedure SCHLAF Repeat M=Mouse Key Until M=2 End Proc Procedure LOESCHEN Ink 6 Bar 330,30 To 609,180 End Proc Procedure NORDAMERIKA Paper 7 Do Cls Ink 0 Bar 30,85 To 620,175 Ink 5 Bar 20,80 To 610,170 Paper 5 : Pen 0 Print At(4,12);"Was wollen sie erraten? " Print At(4,14);"Um das jeweilige Land zu erraten drï¿½cken Sie den Buchstaben < L >," Print At(4,16);"oder um die Stadt zu erraten den Buchstaben < S >." Locate 4,18 Input "Ihre Wahl bitte :";WAHL$ If WAHL$="s" Then NORDAMERIKASTADT If WAHL$="S" Then NORDAMERIKASTADT If WAHL$="l" Then NORDAMERIKALAND If WAHL$="L" Then NORDAMERIKALAND Paper 7 Loop End Proc Procedure NORDAMERIKASTADT Paper 7 : Cls Do Ink 0 Bar 48,18 To 580,30 Ink 2 Bar 38,13 To 570,25 Paper 2 : Pen 4 Print At(7,2);"Bitte geben Sie die richtige der gesuchten Hauptstadt ein.." NA=Rnd(13)+1 Do NB=Rnd(13)+1 Exit If NB<>NA Loop Do NC=Rnd(13)+1 Exit If NC<>NA and NC<>NB Loop Do ND=Rnd(13)+1 Exit If ND<>NC and ND<>NB and ND<>NA Loop ME=Rnd(3)+1 Do MF=Rnd(3)+1 Exit If MF<>ME Loop Do MG=Rnd(3)+1 Exit If MG<>MF and MG<>ME Loop Do MH=Rnd(3)+1 Exit If MH<>MG and MH<>MF and MH<>ME Loop ME=ME*2 MF=MF*2 MG=MG*2 MH=MH*2 Ink 0 Bar 230,48 To 459,112 Ink 5 Bar 220,43 To 449,108 FER=0 If NA=<9 FER=1 Else FER=0 End If Paper 5 : Pen 10 Print At(29+FER,4+ME);NA Print At(34,4+ME);STADT$(NA) If NB=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MF);NB Print At(34,4+MF);STADT$(NB) If NC=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MG);NC Print At(34,4+MG);STADT$(NC) If ND=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MH);ND Print At(34,4+MH);STADT$(ND) Ink 0 Bar 40,130 To 610,146 Ink 14 Bar 30,125 To 600,141 Paper 14 : Pen 2 Print At(7,16);"Welche Nummer hat die Hauptstadt von ";LAND$(NA) Locate 44+Len(LAND$(NA)),16 Input A If A<1 or A>14 Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Eingabefehler" Print At(10,22);"Die Zahl darf nicht grï¿½ï¿½er als 14 und nicht kleiner als 1 sein." Else If STADT$(A)=STADT$(NA) Ink 0 Bar 50,160 To 610,195 Ink 5 Bar 40,155 To 600,190 Paper 5 : Pen 13 Print At(32,20);"Richtig." Print At(8,22);"Die Hauptstadt von ";LAND$(NA);" ist ";STADT$(NA);"." Else Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Falsch" Print At(10,22);"Die Hauptstadt von ";LAND$(NA);" ist ";STADT$(NA);"." End If End If Ink 0 Bar 50,210 To 610,226 Ink 13 Bar 40,205 To 600,221 Paper 13 : Pen 2 Locate 8,26 Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$ Exit If ZURUECK$="e" Exit If ZURUECK$="E" If ZURUECK$="k" NORDAMI End If A=Free Paper 7 Cls Loop AUSWAHL End Proc Procedure NORDAMERIKALAND Paper 7 : Cls Do Ink 0 Bar 48,18 To 580,30 Ink 2 Bar 38,13 To 570,25 Paper 2 : Pen 4 Print At(7,2);"Bitte geben Sie das richtige gesuchte Land ein." NA=Rnd(13)+1 Do NB=Rnd(13)+1 Exit If NB<>NA Loop Do NC=Rnd(13)+1 Exit If NC<>NA and NC<>NB Loop Do ND=Rnd(13)+1 Exit If ND<>NC and ND<>NB and ND<>NA Loop ME=Rnd(3)+1 Do MF=Rnd(3)+1 Exit If MF<>ME Loop Do MG=Rnd(3)+1 Exit If MG<>MF and MG<>ME Loop Do MH=Rnd(3)+1 Exit If MH<>MG and MH<>MF and MH<>ME Loop ME=ME*2 MF=MF*2 MG=MG*2 MH=MH*2 Ink 0 Bar 230,48 To 459,112 Ink 5 Bar 220,43 To 449,108 FER=0 If NA=<9 FER=1 Else FER=0 End If Paper 5 : Pen 10 Print At(29+FER,4+ME);NA Print At(34,4+ME);LAND$(NA) If NB=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MF);NB Print At(34,4+MF);LAND$(NB) If NC=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MG);NC Print At(34,4+MG);LAND$(NC) If ND=<9 FER=1 Else FER=0 End If Print At(29+FER,4+MH);ND Print At(34,4+MH);LAND$(ND) Ink 0 Bar 40,130 To 610,146 Ink 14 Bar 30,125 To 600,141 Paper 14 : Pen 2 Print At(7,16);"In welchem Land befindet sich die Hauptstadt ";STADT$(NA) Locate 54+Len(STADT$(NA)),16 Input A If A<1 or A>14 Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Eingabefehler" Print At(10,22);"Die Zahl darf nicht grï¿½ï¿½er als 14 und nicht kleiner als 1 sein." Else If LAND$(A)=LAND$(NA) Ink 0 Bar 50,160 To 610,195 Ink 5 Bar 40,155 To 600,190 Paper 5 : Pen 13 Print At(32,20);"Richtig." Print At(8,22);"Die Hauptstadt von ";LAND$(NA);" ist ";STADT$(NA);"." Else Ink 0 Bar 30,160 To 610,193 Ink 4 Bar 20,155 To 600,188 Paper 4 : Pen 2 Print At(32,20);"Falsch" Print At(10,22);"Die Hauptstadt von ";LAND$(NA);" ist ";STADT$(NA);"." End If End If Ink 0 Bar 50,210 To 610,226 Ink 13 Bar 40,205 To 600,221 Paper 13 : Pen 2 Locate 8,26 Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$ Exit If ZURUECK$="e" Exit If ZURUECK$="E" If ZURUECK$="k" NORDAMI End If A=Free Paper 7 Cls Loop AUSWAHL End Proc Procedure NORDAMI Unpack 9 To 1 Show : Curs Off Menu$(1)="Programm " Menu$(1,1)="Info " Menu$(1,2)="Musik aus " Menu$(1,3)="Ende " Menu$(2)=" Land 1.Teil " Menu$(2,1)="Kanada " Menu$(2,2)="U S A " Menu$(2,3)="Mexico " Menu$(2,4)="Belize " Menu$(2,5)="Guatemala " Menu$(2,6)="San Salvador " Menu$(2,7)="Honduras " Menu$(3)="Land 2. Teil " Menu$(3,1)="Nicaragua " Menu$(3,2)="Costa Rica " Menu$(3,3)="Panama " Menu$(3,4)="Kuba " Menu$(3,5)="Jamaica " Menu$(3,6)="Haiti " Menu$(3,7)="Domenikanische Rep. " Repeat On Menu Proc PROGRAMM_NORDAMERIKA,NORDAMERIKA_AUSWAHL1,NORDAMERIKA_AUSWAHL2 On Menu On Menu On Until False End Proc Procedure NORDAMERIKA_AUSWAHL1 C=Choice(2) On C Proc KANADA,USA,MEXICO,BELIZE,GUATEMALA,SALVADOR,HONDURAS End Proc Procedure NORDAMERIKA_AUSWAHL2 C=Choice(2) On C Proc NICARAGUA,CASTA_RICA,PANAMA,KUBA,JAMAICA,HAITI,DUMANIKAN,BAHA End Proc Procedure PROGRAMM_NORDAMERIKA C=Choice(2) On C Proc INFO,MUSIK_AUS,ABBRUCH1 End Proc Procedure KANADA Ink 2 : Paper 6 : Pen 2 : Paint 200,70 Print At(47,4);"Kanada Ottawa" Print At(46,14);"Gesamtflï¿½che 9 976 137 km";Chr$(178) Print At(48,16);"davon sind" Print At(46,17);"4.4% Ackerland u. Baumkulturen" Print At(46,18);"2.1% Wiesen u. Dauerweiden" Print At(46,19);"44.4% Hoch- u. Buschwald" Print At(46,20);"49.1% ï¿½dland, Binnengew. etc." Print At(46,8);"Einwohner: 25 400 000" Print At(46,10);"Wï¿½hrung: Kanadischer Dollar" SCHLAF LOESCHEN_NORDAM Ink 5 : Paint 200,70 End Proc Procedure USA Ink 2 : Paper 6 : Pen 2 : Paint 30,40 : Paint 180,110 Print At(47,4);"USA Washington" Print At(46,14);"Gesamtflï¿½che 9 372 600 km";Chr$(178) Print At(48,16);"davon sind" Print At(46,17);"18.8% Ackerland u. Baumkulturen" Print At(46,18);"27.7% Wiesen u. Dauerweiden" Print At(46,19);"31.6% Hoch- u. Buschwald" Print At(46,20);"21.9% ï¿½dland, Binnengew. etc." Print At(46,8);"Einwohner: 236 700 000" Print At(46,10);"Wï¿½hrung: US Dollar" SCHLAF LOESCHEN_NORDAM Ink 5 : Paint 30,40 : Paint 180,110 End Proc Procedure MEXICO Ink 2 : Paper 6 : Pen 2 : Paint 81,150 Print At(47,4);"Mexiko Mexiko" Print At(46,14);"Gesamtflï¿½che 1 972 547 km";Chr$(178) Print At(48,16);"davon sind" Print At(46,17);"12.1% Ackerland u. Baumkulturen" Print At(46,18);"40.1% Wiesen u. Dauerweiden" Print At(46,19);"22.1% Hoch- u. Buschwald" Print At(46,20);"25.7% ï¿½dland, Binnengew. etc." Print At(46,8);"Einwohner: 78 500 000" Print At(46,10);"Wï¿½hrung: Mexikanischer Peso" SCHLAF LOESCHEN_NORDAM Ink 5 : Paint 81,150 End Proc Procedure BELIZE Ink 2 : Paper 6 : Pen 2 : Paint 123,161 : Paint 125,158 Print At(47,4);"Belize Belmopan" Print At(46,14);"Gesamtflï¿½che 23 000 km";Chr$(178) Print At(48,16);"davon sind" Print At(46,17);"42.4% Ackerland u. Baumkulturen" Print At(46,18);"28.4% Wiesen u. Dauerweiden" Print At(46,19);"2.2% Hoch- u. Buschwald" Print At(46,20);"27.0% ï¿½dland, Binnengew. etc." Print At(46,8);"Einwohner: 160 000" Print At(46,10);"Wï¿½hrung: Belize-Dollar" SCHLAF LOESCHEN_NORDAM Ink 5 : Paint 123,161 : Paint 125,158 End Proc Procedure GUATEMALA Ink 2 : Paper 6 : Pen 2 : Paint 110,165 Print At(47,4);"Guatemala Guatemala" Print At(46,14);"Gesamtflï¿½che 108 889 km";Chr$(178) Print At(48,16);"davon sind" Print At(46,17);"13.8% Ackerland u. Baumkulturen" Print At(46,18);"9.4% Wiesen u. Dauerweiden" Print At(46,19);"49.6% Hoch- u. Buschwald" Print At(46,20);"27.2% ï¿½dland, Binnengew. etc." Print At(46,8);"Einwohner: 7 700 000" Print At(46,10);"Wï¿½hrung: Quetzal" SCHLAF LOESCHEN_NORDAM Ink 5 : Paint 110,165 End Proc Procedure SALVADOR Ink 2 : Paper 6 : Pen 2 : Paint 117,171 : Paint 116,168 Print At(47,4);"El Salvador San Salvador" Print At(46,14);"Gesamtflï¿½che 21 393 km";Chr$(178) Print At(48,16);"davon sind" Print At(46,17);"29.1% Ackerland u. Baumkulturen" Print At(46,18);"29.2% Wiesen u. Dauerweiden" Print At(46,19);"11.2% Hoch- u. Buschwald" Print At(46,20);"30.5% ï¿½dland, Binnengew. etc." Print At(46,8);"Einwohner: 5 400 000" Print At(46,10);"Wï¿½hrung: Colï¿½n" SCHLAF LOESCHEN_NORDAM Ink 5 : Paint 117,171 : Paint 116,168 End Proc Procedure HONDURAS Ink 2 : Paper 6 : Pen 2 : Paint 123,165 Print At(47,4);"Honduras Tegucigalpa" Print At(46,14);"Gesamtflï¿½che 112 088 km";Chr$(178) Print At(48,16);"davon sind" Print At(46,17);"7.3% Ackerland u. Baumkulturen" Print At(46,18);"30.4% Wiesen u. Dauerweiden" Print At(46,19);"26.9% Hoch- u. Buschwald" Print At(46,20);"35.4% ï¿½dland, Binnengew. etc." Print At(46,8);"Einwohner: 4 400 000" Print At(46,10);"Wï¿½hrung: Lempira" SCHLAF LOESCHEN_NORDAM Ink 5 : Paint 123,165 End Proc Procedure NICARAGUA Ink 2 : Paper 6 : Pen 2 : Paint 131,174 Print At(47,4);"Nicaragua Managua" Print At(46,14);"Gesamtflï¿½che 148 000 km";Chr$(178) Print At(48,16);"davon sind" Print At(46,17);"6.2% Ackerland u. Baumkulturen" Print At(46,18);"6.6% Wiesen u. Dauerweiden" Print At(46,19);"46.2% Hoch- u. Buschwald" Print At(46,20);"41.0% ï¿½dland, Binnengew. etc." Print At(46,8);"Einwohner: 3 200 000" Print At(46,10);"Wï¿½hrung: Cordoba" SCHLAF LOESCHEN_NORDAM Ink 5 : Paint 131,174 End Proc Procedure CASTA_RICA Ink 2 : Paper 6 : Pen 2 : Paint 136,181 : Paint 142,185 Print At(47,4);"Costa Rica San Jose" Print At(46,14);"Gesamtflï¿½che 50 900 km";Chr$(178) Print At(48,16);"davon sind" Print At(46,17);"19.5% Ackerland u. Baumkulturen" Print At(46,18);"26.9% Wiesen u. Dauerweiden" Print At(46,19);"49.9% Hoch- u. Buschwald" Print At(46,20);"3.7% ï¿½dland, Binnengew. etc." Print At(46,8);"Einwohner: 2 500 000" Print At(46,10);"Wï¿½hrung: Costa Rica Colon" SCHLAF LOESCHEN_NORDAM Ink 5 : Paint 136,181 : Paint 142,185 End Proc Procedure PANAMA Ink 2 : Paper 6 : Pen 2 : Paint 153,185 : Paint 160,188 Print At(47,4);"Panama Panama" Print At(46,14);"Gesamtflï¿½che 75 650 km";Chr$(178) Print At(48,16);"davon sind" Print At(46,17);"7.5% Ackerland u. Baumkulturen" Print At(46,18);"11.0% Wiesen u. Dauerweiden" Print At(46,19);"80.5% Hoch- u. Buschwald" Print At(46,20);"1.0% ï¿½dland, Binnengew. etc." Print At(46,8);"Einwohner:2 200 000" Print At(46,10);"Wï¿½hrung: Balboa" SCHLAF LOESCHEN_NORDAM Ink 5 : Paint 153,185 : Paint 160,188 End Proc Procedure KUBA Ink 2 : Paper 6 : Pen 2 : Paint 160,154 : Paint 153,155 Print At(47,4);"Kuba Havanna" Print At(46,14);"Gesamtflï¿½che 114 524 km";Chr$(178) Print At(48,16);"davon sind" Print At(46,17);"31.3% Ackerland u. Baumkulturen" Print At(46,18);"21.1% Wiesen u. Dauerweiden" Print At(46,19);"26.1% Hoch- u. Buschwald" Print At(46,20);"21.5% ï¿½dland, Binnengew. etc." Print At(46,8);"Einwohner: 10 100 000" Print At(46,10);"Wï¿½hrung: Kubanischer Peso" SCHLAF LOESCHEN_NORDAM Ink 5 : Paint 160,154 : Paint 153,155 End Proc Procedure JAMAICA Ink 2 : Paper 6 : Pen 2 : Paint 167,168 Print At(47,4);"Jamaica Kingston" Print At(46,14);"Gesamtflï¿½che 10 962 km";Chr$(178) Print At(48,16);"davon sind" Print At(46,17);"21.1% Ackerland u. Baumkulturen" Print At(46,18);"23.4% Wiesen u. Dauerweiden" Print At(46,19);"19.2% Hoch- u. Buschwald" Print At(46,20);"36.3% ï¿½dland, Binnengew. etc." Print At(46,8);"Einwohner: 2 300 000" Print At(46,10);"Wï¿½hrung: Jamaika Dollar" SCHLAF LOESCHEN_NORDAM Ink 5 : Paint 167,168 End Proc Procedure HAITI Ink 2 : Paper 6 : Pen 2 : Paint 190,165 : Paint 194,162 Print At(47,4);"Haiti Port of Prince" Print At(46,14);"Gesamtflï¿½che 27 750 km";Chr$(178) Print At(48,16);"davon sind" Print At(46,17);"13.3% Ackerland u. Baumkulturen" Print At(46,18);"18.1% Wiesen u. Dauerweiden" Print At(46,19);"25.2% Hoch- u. Buschwald" Print At(46,20);"43.4% ï¿½dland, Binnengew. etc." Print At(46,8);"Einwohner: 5 200 000" Print At(46,10);"Wï¿½hrung: Gourde" SCHLAF LOESCHEN_NORDAM Ink 5 : Paint 190,165 : Paint 194,162 End Proc Procedure DUMANIKAN Ink 2 : Paper 6 : Pen 2 : Paint 200,163 Print At(47,4);"Dominikan. Rep. St.Domingo" Print At(46,14);"Gesamtflï¿½che 48 442 km";Chr$(178) Print At(48,16);"davon sind" Print At(46,17);"21.9% Ackerland u. Baumkulturen" Print At(46,18);"17.8% Wiesen u. Dauerweiden" Print At(46,19);"45.7% Hoch- u. Buschwald" Print At(46,20);"14.6% ï¿½dland, Binnengew. etc." Print At(46,8);"Einwohner: 6 400 000" Print At(46,10);"Wï¿½hrung: Dominikanischer Peso" SCHLAF LOESCHEN_NORDAM Ink 5 : Paint 200,163 End Proc Procedure BAHA Ink 2 : Paper 6 : Pen 2 : Paint 177,148 : Paint 184,151 Print At(47,4);"Bahamas Nassau" Print At(46,14);"Gesamtflï¿½che 13 900 km";Chr$(178) Print At(48,16);"davon sind" Print At(46,17);"60.5% Ackerland u. Baumkulturen" Print At(46,18);"9.3% Wiesen u. Dauerweiden" Print At(46,19);"0.0% Hoch- u. Buschwald" Print At(46,20);"30.2% ï¿½dland, Binnengew. etc." Print At(46,8);"Einwohner: 230 000" Print At(46,10);"Wï¿½hrung: Bahama-Dollar" SCHLAF LOESCHEN_NORDAM Ink 5 : Paint 177,148 : Paint 184,151 End Proc Procedure JAPAN Ink 2 : Paper 0 : Pen 2 : Paint 475,115 : Paint 470,95 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(6,2);"Land Hauptstadt" Print At(6,5);"Japan Tokio" Print At(4,11);"Gesamtflï¿½che 372 313 km";Chr$(178) Print At(8,13);"davon sind" Print At(5,15);"14.9% Ackerland u. Baumkulturen" Print At(6,16);"2.6% Wiesen u. Dauerweiden" Print At(5,17);"69.1% Hoch- u. Buschwald" Print At(5,18);"13.4% ï¿½dland, Binnengew. etc." Print At(5,7);"Einwohner: ca. 120 800 000" Print At(5,8);"Sprache: japanisch" Print At(5,9);"Wï¿½hrung: Yen" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 475,115 : Paint 470,95 End Proc Procedure SUEDKOREA Ink 2 : Paper 0 : Pen 2 : Paint 427,114 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(6,2);" Land Hauptstadt" Print At(6,5);"N.u.S.Korea Seoul" Print At(4,11);"Gesamtflï¿½che 98 500 km";Chr$(178) Print At(8,13);"davon sind" Print At(5,15);"16.0% Ackerland u. Baumkulturen" Print At(6,16);"0.0% Wiesen u. Dauerweiden" Print At(5,17);"74.0% Hoch- u. Buschwald" Print At(5,18);"10.0% ï¿½dland, Binnengew. etc." Print At(5,7);"Einwohner:42 100 000" Print At(5,8);"Wï¿½hrung: Won" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 427,114 End Proc Procedure NORDKOREA Ink 2 : Paper 0 : Pen 2 : Paint 418,106 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(6,2);" Land Hauptstadt" Print At(6,5);"N.u.S.Korea Pjï¿½ngjang" Print At(4,11);"Gesamtflï¿½che 120 538 km";Chr$(178) Print At(8,13);"davon sind" Print At(5,15);"16.0% Ackerland u. Baumkulturen" Print At(6,16);"0.0% Wiesen u. Dauerweiden" Print At(5,17);"74.0% Hoch- u. Buschwald" Print At(5,18);"10.0% ï¿½dland, Binnengew. etc." Print At(5,7);"Einwohner: 19 600 000" Print At(5,8);"Wï¿½hrung: Won" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 418,106 End Proc Procedure CHINA Ink 2 : Paper 0 : Pen 2 : Paint 380,110 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(6,2);"Land Hauptstadt" Print At(6,5);"China Peking" Print At(4,11);"Gesamtflï¿½che 9 551 000 km";Chr$(178) Print At(8,13);"davon sind" Print At(5,15);"11.5% Ackerland u. Baumkulturen" Print At(5,16);"18.6% Wiesen u. Dauerweiden" Print At(6,17);"8.0% Hoch- u. Buschwald" Print At(5,18);"61.9% ï¿½dland, Binnengew. etc." Print At(5,7);"Einwohner: 1 032 700 000" Print At(5,8);"Wï¿½hrung: Reminbi Yaun (RMB.Y)" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 380,110 End Proc Procedure MONGOLEI Ink 2 : Paper 0 : Pen 2 : Paint 328,95 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(6,2);" Land Hauptstadt" Print At(6,5);"Mongolei Ulan Bator" Print At(4,11);"Gesamtflï¿½che 1 565 000 km";Chr$(178) Print At(8,13);"davon sind" Print At(6,15);"2.2% Ackerland u. Baumkulturen" Print At(6,16);"0.0% Wiesen u. Dauerweiden" Print At(5,17);"16.0% Hoch- u. Buschwald" Print At(5,18);"81.8% ï¿½dland, Binnengew. etc." Print At(5,7);"Einwohner: 1 900 000" Print At(5,8);"Wï¿½hrung: Tugrug (Tug.)" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 328,95 End Proc Procedure SAUDI Ink 2 : Paper 0 : Pen 2 : Paint 120,148 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);" Land Hauptstadt" Print At(2,5);"Saudi Arabien Riad" Print At(2,11);"Gesamtflï¿½che 2 149 690 km";Chr$(178) Print At(6,13);"davon sind" Print At(3,15);"0.4% Ackerland u. Baumkulturen" Print At(2,16);"39.5% Wiesen u. Dauerweiden" Print At(3,17);"0.8% Hoch- u. Buschwald" Print At(2,18);"59.3% ï¿½dland, Binnengew. etc." Print At(5,7);"Einwohner: 10 800 000" Print At(5,8);"Wï¿½hrung: Saudi Riyal (S.RI)" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 120,148 End Proc Procedure ISRAEL Ink 2 : Paper 0 : Pen 2 : Paint 80,138 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);" Land Hauptstadt" Print At(2,5);"Israel Jerusalem" Print At(2,11);"Gesamtflï¿½che 20 700 km";Chr$(178) Print At(6,13);"davon sind" Print At(2,15);"20.4% Ackerland u. Baumkulturen" Print At(2,16);"39.5% Wiesen u. Dauerweiden" Print At(3,17);"5.3% Hoch- u. Buschwald" Print At(2,18);"34.8% ï¿½dland, Binnengew. etc." Print At(5,7);"Einwohner: 4 300 000" Print At(5,8);"Wï¿½hrung: Israelische Schekel (IS)" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 80,138 End Proc Procedure JORDANIEN Ink 2 : Paper 0 : Pen 2 : Paint 90,135 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);" Land Hauptstadt" Print At(2,5);"Jordanien Amman" Print At(2,11);"Gesamtflï¿½che 97 740 km";Chr$(178) Print At(6,13);"davon sind" Print At(2,15);"13.3% Ackerland u. Baumkulturen" Print At(3,16);"1.0% Wiesen u. Dauerweiden" Print At(3,17);"1.3% Hoch- u. Buschwald" Print At(2,18);"84.4% ï¿½dland, Binnengew. etc." Print At(5,7);"Einwohner: 3 400 000" Print At(5,8);"Wï¿½hrung:Jordan-Dinar (JD)" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 90,135 End Proc Procedure LIBANON Ink 2 : Paper 0 : Pen 2 : Paint 82,126 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);" Land Hauptstadt" Print At(2,5);"Libanon Beirut" Print At(2,11);"Gesamtflï¿½che 10 400 km";Chr$(178) Print At(6,13);"davon sind" Print At(2,15);"29.4% Ackerland u. Baumkulturen" Print At(3,16);"1.0% Wiesen u. Dauerweiden" Print At(3,17);"9.1% Hoch- u. Buschwald" Print At(2,18);"60.5% ï¿½dland, Binnengew. etc." Print At(5,7);"Einwohner: 2 700 000" Print At(5,8);"Wï¿½hrung: Libanisches Pfund" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 82,126 End Proc Procedure SYRIEN Ink 2 : Paper 0 : Pen 2 : Paint 90,120 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);" Land Hauptstadt" Print At(2,5);"Syrien Damaskus" Print At(2,11);"Gesamtflï¿½che 185 180 km";Chr$(178) Print At(6,13);"davon sind" Print At(2,15);"31.9% Ackerland u. Baumkulturen" Print At(2,16);"29.3% Wiesen u. Dauerweiden" Print At(3,17);"2.4% Hoch- u. Buschwald" Print At(2,18);"36.4% ï¿½dland, Binnengew. etc." Print At(2,7);"Einwohner: 9 900 000" Print At(2,8);"Wï¿½hrung: Syrisches Pfund" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 90,120 End Proc Procedure IRAK Ink 2 : Paper 0 : Pen 2 : Paint 110,127 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);"Land Hauptstadt" Print At(2,5);"Irak Bagdad" Print At(2,11);"Gesamtflï¿½che 434 000 km";Chr$(178) Print At(6,13);"davon sind" Print At(2,15);"23.4% Ackerland u. Baumkulturen" Print At(3,16);"0.1% Wiesen u. Dauerweiden" Print At(3,17);"4.3% Hoch- u. Buschwald" Print At(2,18);"72.2% ï¿½dland, Binnengew. etc." Print At(2,7);"Einwohner: 15 200 000" Print At(2,8);"Wï¿½hrung: Irak Dinar" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 110,127 End Proc Procedure KUWAIT Ink 2 : Paper 0 : Pen 2 : Paint 128,139 : Paint 129,141 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);"Land Hauptstadt" Print At(2,5);"Kuwait Kuwait" Print At(2,11);"Gesamtflï¿½che 17 800 km";Chr$(178) Print At(2,13);"Kuwait hat sehr hohe Erdï¿½l-" Print At(2,14);"vorkommen" Print At(2,7);"Einwohner: 1 700 000" Print At(2,8);"Wï¿½hrung: Kuwait Dinar" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 128,139 : Paint 129,141 End Proc Procedure JEMEN Ink 2 : Paper 0 : Pen 2 : Paint 123,176 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);"Land Hauptstadt" Print At(2,5);"Jemen Sana" Print At(2,11);"Gesamtflï¿½che 195 000 km";Chr$(178) Print At(2,7);"Einwohner: 6 400 000" Print At(2,8);"Wï¿½hrung: Yemen Rial" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 123,176 End Proc Procedure VOLKJEMEN Ink 2 : Paper 0 : Pen 2 : Paint 128,180 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);"Land Hauptstadt" Print At(2,5);"Volksrep.Jemen Aden" Print At(2,11);"Gesamtflï¿½che 333 000 km";Chr$(178) Print At(2,7);"Einwohner: 2 200 000" Print At(2,8);"Wï¿½hrung: Yemen Dinar" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 128,180 End Proc Procedure OMAN Ink 2 : Paper 0 : Pen 2 : Paint 176,160 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);"Land Hauptstadt" Print At(2,5);"Oman Maskat" Print At(2,11);"Gesamtflï¿½che 212 500 km";Chr$(178) Print At(2,7);"Einwohner: 1 200 000" Print At(2,8);"Wï¿½hrung: Rial Omani" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 176,160 End Proc Procedure EMIRATE Ink 2 : Paper 0 : Pen 2 : Paint 161,153 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);"Land Hauptstadt" Print At(2,5);"Arab.Emirate Abu Dhabi" Print At(2,11);"Gesamtflï¿½che 83 600 km";Chr$(178) Print At(2,7);"Eimwohner: 1 300 000" Print At(2,8);"Wï¿½hrung: Dirham" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 161,153 End Proc Procedure IRAN Ink 2 : Paper 0 : Pen 2 : Paint 140,128 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);"Land Hauptstadt" Print At(2,5);"Iran Teheran" Print At(2,11);"Gesamtflï¿½che 1 648 000 km";Chr$(178) Print At(6,13);"davon sind" Print At(2,15);"10.0% Ackerland u. Baumkulturen" Print At(3,16);"6.8% Wiesen u. Dauerweiden" Print At(2,17);"10.9% Hoch- u. Buschwald" Print At(2,18);"72.3% ï¿½dland, Binnengew. etc." Print At(2,7);"Einwohner: 44 200 000" Print At(2,8);"Wï¿½hrung: Rial" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 140,128 End Proc Procedure AFGHANISTAN Ink 2 : Paper 0 : Pen 2 : Paint 200,125 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);" Land Hauptstadt" Print At(2,5);"Afghanistan Kabul" Print At(2,11);"Gesamtflï¿½che 649 969 km";Chr$(178) Print At(6,13);"davon sind" Print At(2,15);"12.3% Ackerland u. Baumkulturen" Print At(3,16);"9.3% Wiesen u. Dauerweiden" Print At(3,17);"3.1% Hoch- u. Buschwald" Print At(2,18);"75.3% ï¿½dland, Binnengew. etc." Print At(2,7);"Einwohner: 17 700 000" Print At(2,8);"Wï¿½hrung: Afghani" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 200,125 End Proc Procedure SOWJETUNION Ink 2 : Paper 0 : Pen 2 : Paint 100,70 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);" Land Hauptstadt" Print At(2,5);"Sowjetunion Moskau" Print At(2,11);"Gesamtflï¿½che 22 274 900 km";Chr$(178) Print At(6,13);"davon sind" Print At(2,15);"10.4% Ackerland u. Baumkulturen" Print At(2,16);"16.7% Wiesen u. Dauerweiden" Print At(2,17);"40.6% Hoch- u. Buschwald" Print At(2,18);"32.3% ï¿½dland, Binnengew. etc." Print At(2,7);"Einwohner: 276 300 000" Print At(2,8);"Wï¿½hrung: Rubel" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 100,70 End Proc Procedure PAKISTAN Ink 2 : Paper 0 : Pen 2 : Paint 225,130 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);" Land Hauptstadt" Print At(2,5);"Pakistan Islamabad" Print At(2,11);"Gesamtflï¿½che 803 940 km";Chr$(178) Print At(6,13);"davon sind" Print At(2,15);"29.9% Ackerland u. Baumkulturen" Print At(3,16);"4.4% Wiesen u. Dauerweiden" Print At(2,17);"0.0% Hoch- u. Buschwald" Print At(3,18);"65.7% ï¿½dland, Binnengew. etc." Print At(2,7);"Enwohner: 96 200 000" Print At(2,8);"Wï¿½hrung: Pakistanische Rupie" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 225,130 End Proc Procedure INDIEN Ink 2 : Paper 0 : Pen 2 : Paint 240,145 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);" Land Hauptstadt" Print At(2,5);"Indien Neu-Dehli" Print At(2,11);"Gesamtflï¿½che 3 268 090 km";Chr$(178) Print At(6,13);"davon sind" Print At(2,15);"50.3% Ackerland u. Baumkulturen" Print At(3,16);"4.3% Wiesen u. Dauerweiden" Print At(2,17);"19.1% Hoch- u. Buschwald" Print At(2,18);"26.3% ï¿½dland, Binnengew. etc." Print At(2,7);"Einwohner: 746 700 000" Print At(2,8);"Wï¿½hrung: Indische Rupie" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 240,145 End Proc Procedure NEPAL Ink 2 : Paper 0 : Pen 2 : Paint 274,140 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);"Land Hauptstadt" Print At(2,5);"Nepal Katmandu" Print At(2,11);"Gesamtflï¿½che 140,800 km";Chr$(178) Print At(2,7);"Einwohner: 16 700 000" Print At(2,8);"Wï¿½hrung: Nepalesische Rupie" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 274,140 End Proc Procedure BHUTAN Ink 2 : Paper 0 : Pen 2 : Paint 298,139 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);"Land Hauptstadt" Print At(2,5);"Bhutan Thimbu" Print At(2,11);"Gesamtflï¿½che 47 000 km";Chr$(178) Print At(2,7);"Einwohner: 1 400 000" Print At(2,8);"Wï¿½hrung: Ngultrum" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 298,139 End Proc Procedure BANGLA Ink 2 : Paper 0 : Pen 2 : Paint 305,153 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(2,2);" Land Hauptstadt" Print At(2,5);"Bangla-Desh Dacca" Print At(3,11);"Gesamtflï¿½che 142 776 km";Chr$(178) Print At(7,13);"davon sind" Print At(3,15);"66.6% Ackerland u. Baumkulturen" Print At(3,16);"0.0% Wiesen u. Dauerweiden" Print At(3,17);"15.0% Hoch- u. Buschwald" Print At(3,18);"18.4% ï¿½dland, Binnengew. etc." Print At(2,7);"Einwohner: 98 700 000" Print At(2,8);"Wï¿½hrung: Taka" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 305,153 End Proc Procedure LANKA Ink 2 : Paper 0 : Pen 2 : Paint 273,192 : Paint 275,197 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(6,2);" Land Hauptstadt" Print At(6,5);"Sri Lanka Colombo" Print At(4,11);"Gesamtflï¿½che 65 610 km";Chr$(178) Print At(8,13);"davon sind" Print At(5,15);"30.1% Ackerland u. Baumkulturen" Print At(6,16);"6.7% Wiesen u. Dauerweiden" Print At(5,17);"44.2% Hoch- u. Buschwald" Print At(5,18);"19.0% ï¿½dland, Binnengew. etc." Print At(5,7);"Einwohner: 15 600 000" Print At(5,8);"Wï¿½hrung: Sri Lanka-Rupie" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 273,192 : Paint 275,197 End Proc Procedure BIRMA Ink 2 : Paper 0 : Pen 2 : Paint 332,160 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(6,2);"Land Hauptstadt" Print At(6,5);"Birma Rangun" Print At(4,11);"Gesamtflï¿½che 678 033 km";Chr$(178) Print At(8,13);"davon sind" Print At(5,15);"28.0% Ackerland u. Baumkulturen" Print At(6,16);"0.5% Wiesen u. Dauerweiden" Print At(5,17);"66.8% Hoch- u. Buschwald" Print At(6,18);"4.7% ï¿½dland, Binnengew. etc." Print At(5,7);"Einwohner: 37 600 000" Print At(5,8);"Wï¿½hrung: Kyat" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 332,160 End Proc Procedure KAMBODSCHA Ink 2 : Paper 0 : Pen 2 : Paint 370,176 : Paint 371,183 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(6,2);" Land Hauptstadt" Print At(6,5);"Kambodscha Phnom Penh" Print At(4,11);"Gesamtflï¿½che 181 035 km";Chr$(178) Print At(8,13);"davon sind" Print At(5,15);"16.5% Ackerland u. Baumkulturen" Print At(6,16);"3.2% Wiesen u. Dauerweiden" Print At(5,17);"73.9% Hoch- u. Buschwald" Print At(6,18);"6.4% ï¿½dland, Binnengew. etc." Print At(5,7);"Einwohner: 7 100 000" Print At(5,8);"Wï¿½hrung: Riel" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 370,176 : Paint 371,183 End Proc Procedure THAILAND Ink 2 : Paper 0 : Pen 2 : Paint 356,170 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(6,2);" Land Hauptstadt" Print At(6,5);"Thailand Bankok" Print At(4,11);"Gesamtflï¿½che 514 000 km";Chr$(178) Print At(8,13);"davon sind" Print At(5,15);"22.1% Ackerland u. Baumkulturen" Print At(6,16);"0.0% Wiesen u. Dauerweiden" Print At(5,17);"53.2% Hoch- u. Buschwald" Print At(5,18);"24.7% ï¿½dland, Binnengew. etc." Print At(5,7);"Einwohner: 50 400 000" Print At(5,8);"Wï¿½hrung: Bath" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 356,170 End Proc Procedure LAOS Ink 2 : Paper 0 : Pen 2 : Paint 360,160 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(6,2);"Land Hauptstadt" Print At(6,5);"Laos Vientiane" Print At(4,11);"Gesamtflï¿½che 236 800 km";Chr$(178) Print At(8,13);"davon sind" Print At(6,15);"4.0% Ackerland u. Baumkulturen" Print At(6,16);"3.4% Wiesen u. Dauerweiden" Print At(5,17);"63.3% Hoch- u. Buschwald" Print At(5,18);"29.3% ï¿½dland, Binnengew. etc." Print At(5,7);"Einwohner: 3 600 000" Print At(5,8);"Wï¿½hrung: Kip de Libï¿½ration" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 360,160 End Proc Procedure VIETNAM Ink 2 : Paper 0 : Pen 2 : Paint 367,156 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(6,2);" Land Hauptstadt" Print At(6,5);"Vietnam Hanoi" Print At(4,11);"Gesamtflï¿½che 332 559 km";Chr$(178) Print At(8,13);"davon sind" Print At(5,15);"15.9% Ackerland u. Baumkulturen" Print At(5,16);"14.7% Wiesen u. Dauerweiden" Print At(5,17);"40.6% Hoch- u. Buschwald" Print At(5,18);"28.8% ï¿½dland, Binnengew. etc." Print At(5,7);"Einwohner: 58 300 000" Print At(5,8);"Wï¿½hrung: Dong" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 367,156 End Proc Procedure MALAYSI Ink 2 : Paper 0 : Pen 2 : Paint 367,200 : Paint 420,200 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(6,2);"Land Hauptstadt" Print At(6,5);"Malaysia Kuala Lumpur" Print At(4,7);"Gesamtflï¿½che 332 632 km";Chr$(178) Print At(4,9);"davon sind" Print At(3,11);"10.6% Ackerland u. Baumkulturen" Print At(3,12);"15.0% Wiesen u. Dauerweiden" Print At(3,13);"74.4% Hoch- u. Buschwald" Print At(3,14);"0 % ï¿½dland,Binnengew. etc." Print At(5,16);"Einwohner: 15 200 000" Print At(5,18);"Wï¿½hrung: Malayischer Ringgit" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 367,200 : Paint 420,200 End Proc Procedure PHILLIPPINEN Ink 2 : Paper 0 : Pen 2 : Paint 436,169 : Paint 450,190 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(6,2);" Land Hauptstadt" Print At(6,5);"Philippinen Manila" Print At(4,11);"Gesamtflï¿½che 300 000 km";Chr$(178) Print At(8,13);"davon sind" Print At(5,15);"29.9% Ackerland u. Baumkulturen" Print At(6,16);"4.8% Wiesen u. Dauerweiden" Print At(5,17);"53.0% Hoch- u. Buschwald" Print At(5,18);"12.3% ï¿½dland, Binnengew. etc." Print At(5,7);"Einwohner: 53 400 000" Print At(5,8);"Wï¿½hrung: Philippinischer Peso" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 436,169 : Paint 450,190 End Proc Procedure TAIWAN Ink 2 : Paper 0 : Pen 2 : Paint 428,146 SCHLAF Screen To Back 1 : Screen To Front 2 : Screen 2 Print At(6,2);" Land Hauptstadt" Print At(6,5);"Taiwan Taipeh" Print At(4,11);"Gesamtflï¿½che 35 966 km";Chr$(178) Print At(8,13);"davon sind" Print At(5,15);"24.0% Ackerland u. Baumkulturen" Print At(6,16);"0.0% Wiesen u. Dauerweiden" Print At(5,17);"64.5% Hoch- u. Buschwald" Print At(5,18);"11.5% ï¿½dland, Binnengew. etc." Print At(5,7);"Einwohner: 19 100 000" Print At(5,8);"Wï¿½hrung:" SCHLAF Cls : Screen To Back 2 : Screen To Front 1 : Screen 1 Ink 5 : Paint 428,146 End Proc SUEDAMERIKA: Data "Lima","Peru","Quito","Ecuador","La Paz","Bolivien" Data "Asuncion","Paraguay","Montevideo","Uruguay","Buenos Aires","Argentinien" Data "Santiago de Chile","Chile","Brasilia","Brasilien","Bogota","Kolumbien" Data "Caracas","Venezuela","Georgetown","Guyana","Paramaribo","Surinam" Data "Cayenne","Franz.- Guyana" Return AFRIKA: Data "Rabat","Marokko","Algier","Algerien","Tunis","Tunesien" Data "Tripolis","Libyen","Kairo","ï¿½gypten","Dakar","Senegal" Data "Bamako","Mali","Freetown","Siera Leone","Monrovia","Liberia" Data "Abidjan","Elfenbeinkï¿½ste","Accra","Ghana","Wagadugu","Obervolta" Data "Lome","Togo","Lagos","Nigeria","Niamey","Niger" Data "N`Djamena","Tschad","Addis-Abeba","ï¿½thiopien","Mogadischu","Somalia" Data "Nairobi","Kenia","Kampala","Uganda","Kinshasa","Zaire" Data "Luanda","Angola","Lusaka","Sambia","Daressalaam","Tansania" Data "Salisbury","Simbabwe","Maputo","Mocambique","Windhuk","Namibia" Data "Kapstadt","Sï¿½dafrika","Victoria","Seychellen","P.Louis","Mauritius" Data "Libreville","Gabun","Conakry","Guinea","Jaunde","Kamerun" Data "Brazzaville","Kongo","Nuakschott","Mauretanien","Kigali","Rwanda" Data "Khartoum","Sudan","Porto Novo","Benin","Bangi","Zentralafrika" Data "Bujumbura","Burundi","Gaborone","Botswana" Return NORDAMERIKA: Data "Panama","Panama","Managua","Nicaragua","Tegucigalpa","Honduras" Data "San Salvador","El Salvador","Guatemala","Guatemala","Belmopan","Belize" Data "Mexico","Mexico","Havanna","Kuba","Kingston","Jamaika" Data "Port au-Prince","Haiti","Santo Domingo","Domenikanische Rep.","Nassau","Bahamas" Data "Washington","Vereinigte Staaten","Ottawa","Kanada" Return SIENA: Data "Moskau","Sowjetunion","Islamabad","Pakistan","Neu-Delhi","Indien" Data "Kathmandu","Nepal","Thimbu","Bhutan","Dacca","Bangladesh" Data "Bagdad","Irak","Rangun","Birma","Peking","China" Data "Ulan-Bator","Mongolei","Teheran","Iran","Kabul","Afghanistan" Data "Bangkok","Thailand","Phnom-Penh","Kambodscha","Kuala-Lumpur","Malaysia" Data "Hanoi","Vietnam","Taipeh","Taiwan","Hongkong","Hongkong" Data "Pjï¿½ngjang","Nordkorea","Seoul","Sï¿½dkorea","Manila","Philippinen" Data "Colombo","Sri-Lanka","Tokio","Japan","Damaskus","Syrien" Data "Beirut","Libanon","Vientiane","Laos","Jerusalem","Israel" Data "Riad","Saudi-Arabien","Amman","Jordanien","Sana","Jemen" Data "Aden","Volksrep.-Jemen","Maskat","Oman","Abu-Dhabi","Arabische Emirate" Data "Kuwait","Kuwait","Menama","Bahrain" Return EUROPA: Data "Oslo","Norwegen","Stockholm","Schweden","Helsinki","Finnland" Data "Reykjavik","Island","London","Groï¿½britannien","Dublin","Irland" Data "Kopenhagen","Dï¿½nemark","Amsterdam","Niederlande","Brï¿½ssel","Belgien" Data "Luxemburg","Luxemburg","Paris","Frankreich","Madrid","Spanien" Data "Bonn","Bundesrepublik","Warschau","Polen","Sofia","Bulgarien" Data "Bern","Schweiz","Valletta","Malta","Lissabon","Portugal" Data "Budapest","Ungarn","Rom","Italien","Ankara","Tï¿½rkei" Data "Belgrad","Jugoslawien","Bukarest","Rumï¿½nien","Nikosia","Zypern" Data "Wien","ï¿½sterreich","Prag","Tschechoslowakei","Athen","Griechenland" Data "Andorra","Andorra","Tirana","Albanien","Ost-Berlin","DDR" Return AUSTRALIEN: Data "Canberra","Australien","Wellington","Neuseeland","Konedugu","Papua-Neuguinea" Data "Jakarta","Indonesien","Kuala-Lumpur","Malaysia","Manila","Philippinen" Data "Ponape","Mikronesien","Suva","Fidschi Inseln" Return